Option Explicit
Sub Tirage1()
Dim TNoms(), NbNoms As Long, NbParEqu As Long, TRés(), _
P As Long, L As Long, C As Long, N As Long
TNoms = Feuil2.[B3].Resize(Feuil2.[B65530].End(xlUp).Row - 2).Value
NbNoms = UBound(TNoms, 1)
NbParEqu = Feuil2.[K1].Value
ReDim TRés(1 To 10, 1 To 24)
Randomize
With New ListeAléat
.Init NbNoms
For P = 1 To NbNoms
If P Mod NbParEqu = 1 Then C = C + 2: L = 1 Else L = L + 1
N = .Aléat(P)
TRés(L, C - 1) = N
TRés(L, C) = TNoms(N, 1)
Next P: End With
Feuil2.[C3:Z12].Value = TRés
End Sub