Bonjour,
il suffit de rechercher la dernière cellule remplie (verticalement pour les lignes et horizontalement pour les colonnes)
NbLig = Cells(Rows.Count, 1).End(xlUp).Row ' nombre de lignes dans la colonne 1
NbCol = Cells(1, Columns.Count).End(xlToLeft).Column 'nombre de colonne 1iere ligne