'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