Re-bonjour les pros,

J'essaie de faire une boucle qui me permette de remplir les cellules de la colonne A, tant que les cellules de la colonne B sont renseignées. Voici mon "code":

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Sub boucle()
 
Dim Intcount As Integer
Do
Intcount = Intcount + 1
ActiveCell = Range("D9")
Loop Until IsEmpty(ActiveCell.Offset(0, 1))
 
End Sub
Le problème c'est que cela renseigne seulement la première cellule de mon tableau, puis rien...comprends pas, ça fait que semaines que je travaille avec VBA...Quelqu'un a t-il une idée?