Sub aléatoire()
Dim i%, j%, a%, t%, v(1 To 20)
With Sheets(1).Cells(1, 1)
For i = 1 To 20 'Relève les n° des équipes inscrites.
If Not IsEmpty(.Offset(i, 1)) Then
j = j + 1
v(j) = .Offset(i, 0)
End If
Next
End With
Randomize
For i = j To 1 Step -1 'Distribue aléatoirement les n°.
a = 1 + Int(j * Rnd)
t = v(j): v(j) = v(a): v(a) = t
Next
With Sheets(2).Range("C2:V2") 'Affiche le résultat.
.ClearContents
.Value = v
End With
End Sub