Bonjour rlebigre,
pour le nombre de lignes voici :
Dim NbLignes As Integer
NbLignes = Cells(Cells(65536, 1).End(xlUp).Row, 1).Row - 1
et pour les colonnes :
dim NbColonnes as integer
NbColonnes = Cells(1, Cells(1, 256).End(xlToLeft).Column).Column
Bon courage