Private toto As Integer, titi As Long
Private Sub CommandButton3_Click()
limite = 10
For i = 1 To 100
If toto = 0 Then toto = 1
If titi = 0 Then titi = 1
Cells(titi, toto) = "allons !"
titi = titi + 1
If titi > limite Then toto = toto + 1: titi = 1
Next
End Sub
Je vais l'adapter selon la taille maximale de ma colonne excel