' Tirage au sort des colonnes et des lignes
NbLig = UBound(TabEquipes, 1)
NbCol = UBound(TabEquipes, 2)
ReDim Tablo(1 To NbLig, 1 To NbCol) As Variant
Randomize
CalculMélange TMélLig, NbLig
For L = 1 To NbLig
CalculMélange TMélCol, NbCol
For C = 1 To NbCol: Tablo(L, C) = TabEquipes(TMélLig(L), TMélCol(C)): Next C
Next L