DernièreLigne = Range("A1").End(xlDown).Row
DernièreLigne = Range("A65535").End(xlUp).Row
nbcol = Range("A1").SpecialCells(xlCellTypeLastCell).Row
'si tu es dans la colonne ayant le plus grand nombre de lignes
DernièreLigne = ActiveCell.End(xlDown).Row
'Si tu n'as aucune ligne ni colonne entièrement vides dans ta plage de données
DernièreLigne = Selection.CurrentRegion.End(xlDown).Row
DernièreColonne = Selection.CurrentRegion.End(xlToRight).Column
DernièreColonne = ActiveCell.End(xlToRight).Column
Set tbl = ActiveCell.CurrentRegion 'Plage de tes données
DernièreColonne = tbl.Columns.Count
DernièreColonne = Range("A1").End(xlLeft).Column
DernièreColonne = Range("A1").End(xlToRight).Column
nbcol = Range("A1").SpecialCells(xlCellTypeLastCell).Column |