Sub tirage()
ligne = 2
colonne = 2
Set Liste = New Collection
While Liste.Count < 16
Randomize
num = Int((16 * Rnd) + 1)
On Error Resume Next
Liste.Add num, CStr(num)
On Error GoTo 0
Wend
For n = 1 To Liste.Count
MsgBox "Poule " & colonne / 2 & " Joueur " & ligne - 1 & vbCrLf & "Attention : Tirage au sort" & vbCrLf & Range("A" & Liste(n))
Cells(ligne, colonne) = Range("A" & Liste(n))
ligne = ligne + 1
If ligne > 5 Then
ligne = 2
colonne = colonne + 2
End If
Next n
End Sub