'déclaration des variables
Dim derniereLigne As Long
Dim derniereColonne As Integer
Dim myRange As Range
'sélection de la dernière cellule non vide de la colonne A
Range("A" & Rows.Count).End(xlUp).Select
'n° de la dernière ligne non vide de la colonne A
derniereLigne = Range("A" & Rows.Count).End(xlUp).Row
'sélection de la première cellule vide de la colonne A
Range("A" & Rows.Count).End(xlUp).Offset(1).Select
'n° de la première ligne vide de la colonne A
derniereLigne = Range("A" & Rows.Count).End(xlUp).Row + 1
'enregistrement de la dernière cellule non vide de la colonne A dans la variable myRange
Set myRange = Range("A" & Rows.Count).End(xlUp)
'sélection de la variable myRange
myRange.Select
'sélection de la dernière cellule non vide de la ligne 1
Cells(1, Columns.Count).End(xlToLeft).Select
'n° de la dernière colonne non vide de la ligne 1
derniereColonne = Cells(1, Columns.Count).End(xlToLeft).Column
'sélection de la première cellule vide de la ligne 1
Cells(1, Columns.Count).End(xlToLeft).Offset(, 1).Select
'n° de la première colonne vide de la ligne 1
derniereColonne = Cells(1, Columns.Count).End(xlToLeft).Column + 1