if WorksheetFunction.CountA(Range("A2:A10")) = 0 then msgbox "vide"
...étant donné que je ne connais pas combien de fois je vais devoir ecrire...
n = 210 if WorksheetFunction.CountA(Range("A2:A" & n)) = 0 then msgbox "vide"
While (WorksheetFunction.CountA(Range(Chr(COLONNE_AFFAIRE) & LTrim(Str(Ligne)) & ":" & Chr(COLONNE_COMMENTAIRE + 4) & LTrim(Str(Ligne)))) <> 0) Ligne = Ligne + 1 Wend
n = 12 MsgBox "A" & n