Bonsoir,

Dans cet exemple, nous avons le nombre de lignes jusqu'à une cellule vide.
Je voudrais la même chose avec jusqu'à une cellule non vide. Est ce possible.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Range("a1").Select
    Do
    ActiveCell.Offset(1, 0).Select
    Loop Until ActiveCell = ""
nli = ActiveCell.Row
Je vous remercie pour votre aide