en effet, cela fonctionne...
lorsque j'adapte a mon cas, j'obtiens ceci:
Sub repartauto()
Randomize
Feuil2.[A2:J1000].ClearContents
lig = 1
For k = 6 To 30 Step 3
col = col + 1: lg = 1
bas = Feuil4.Cells(500, col).End(3).Row
For b = 1 To Feuil1.Cells(k, 10)
Do
num = Int(((bas - 1) * Rnd) + 2)...