' Selectionne la première cellule du tableau Range("A1").Select ' Boucle tant que pas vide Do While Not (IsEmpty(ActiveCell)) NbLigne = NbLigne + 1 Selection.Offset(1, 0).Select Loop