Bonjour,
Ca manque encore de précisions mais voici un début pour la boucle.
Tant qu'il y a des valeurs :
Sub Tantque()
dim i as Long
i = 1 'initialisation de i
while range("A" & i).value <> "" 'tant que Ai n'est pas vide
'??? 'on execute ce code (à compléter)
wend
end sub
Ou, plus classique, jusqu'à la dernière non vide :
Sub Pourchaque()
dim dernlig as long, i as Long
dernlig = Range("A" & rows.count).end(xlup).row 'numéro de ligne, en remontant globalement, en partant du bas
for i = 1 to dernlig 'pour chaque i allant de 1 à dernière ligne
'???
next i
end sub
Cdlt,