Sub tirage2()
ligne = 2
colonne = 3
Set liste = New Collection
While liste.Count <[B] [COLOR=Red]32[/COLOR][/B]
Randomize
num = Int(([COLOR=Red][B]32[/B] [/COLOR]* Rnd) + 1)
On Error Resume Next
liste.Add num, CStr(num)
On Error GoTo 0
Wend
For n = 1 To liste.Count
Cells(ligne, colonne) = Range("A" & liste(n))
ligne = ligne + 1
If ligne > [COLOR=Red][B]5[/B][/COLOR] Then
ligne = 2
colonne = colonne + 2
End If
Next n
End Sub