Sub Exemple_par_l_exemple()
Dim Derligne&, A&
Randomize 1600
Range("A:A") = ""
Cells(Application.RandBetween(4, 21), 1) = "Staple1600"
Derligne = Cells(Rows.Count, 1).End(xlUp).Row
MsgBox "Derligne = " & Derligne
For A = 3 To Derligne
MsgBox Cells(A, 1).Address
Next
End Sub