Il y a deux manières:
- Soit tu sais combien tu as de codes article:
Sub Boucle()
Dim i As Long
Dim CodeArticle As String
'De ligne 2 jusqu'à 21
For i = 2 To 21
'i=ligne, 1=colonne A
CodeArticle = Cells(i, 1)
Next i
End Sub
- Soit tu ne sais pas:
Sub Boucle1()
Dim i As Long
Dim CodeArticle As String
'Commence à la ligne 2
i = 2
'Boucle tant que la cellule n'est pas vide (1=colonne A)
Do While Cells(i, 1) <> ""
CodeArticle = Cells(i, 1)
'Incrémente de 1 ligne
i = i + 1
Loop
End Sub