Sub TriParÉquipes()
DéclasserGroupesDe3 [C4:D4]
End Sub
Sub DéclasserGroupesDe3(ByVal Rng As Range)
Dim TEntrée(), TSortie(), N As Long, LE As Long, LS As Long, dL As Long, C As Long
Set Rng = Rng.Resize(Rng(10000, 1).End(xlUp).Row - Rng.Row + 1)
TEntrée = Rng.Value
ReDim TSortie(1 To UBound(TEntrée, 1), 1 To UBound(TEntrée, 2))
With New ListeAléat
Randomize
.Init UBound(TEntrée, 1) \ 3
For N = 1 To .Count
LE = 3 * (N - 1): LS = 3 * (.Aléat(N) - 1)
For dL = 1 To 3: For C = 1 To UBound(TEntrée, 2)
TSortie(LS + dL, C) = TEntrée(LE + dL, C)
Next C, dL, N
End With
Rng.Value = TSortie
End Sub