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