Range(...).SpecialCells(xlCellTypeLastCell)
S'il existe ou non des lignes vides dans dans la feuille, donne
la dernière ligne absolue de la feuille
Attention : Si des lignes sont supprimées dans la plage, enregistrer le fichier pour avoir le réel N° de la dernière ligne (idem pour les colonnes supprimées)
DerniereLigne = Range("A1").SpecialCells(xlCellTypeLastCell).Row
Range(...).SpecialCells(xlCellTypeLastCell).address
Donne l'adresse absolue de
la dernière cellule renseignée de la feuille
AdresseAbsolue = Range("A1").SpecialCells(xlCellTypeLastCell).address
Partager