XL 2010 Tirage aléatoire d'équipes de 2

Private Sub CommandButton1_Click()
   Dim wsInscription As Worksheet, wsTirage As Worksheet, DLig As Long, _
      NbEquipes As Long, LAt As New ListeAléat, P As Long
Rem. Référence à la feuille "Inscription"
   Set wsInscription = Worksheets("Inscription")
   
Rem. Référence à la feuille "Tirage"
   Set wsTirage = Worksheets("Tirage")
   
Rem. Trouver le nombre d'équipes (dans la colonne A de la feuille "Inscription")
   DLig = wsInscription.Range("A100").End(xlUp).Row
   NbEquipes = DLig - 6
   
Rem. Production de l'appariement manche 1
   [A8:D13].ClearContents
   Randomize
   LAt.Init NbEquipes
      For P = 1 To LAt.Count
         Cells((P + 1) \ 2 + 6, (P Mod 2) * 2 + 1).Value = LAt.Aléat(P)
         Next P
   End Sub

Sub BtTirage1_Cliquer()
    tirageausort2 1
End Sub
Sub BtTirage2_Cliquer()
    tirageausort2 6
End Sub
Sub BtTirage3_Cliquer()
    tirageausort2 11
End Sub
Sub tirageausort2(cx)
    Dim T, T2, I&, C, LIg&, maxlig&
    With Sheets("Inscription"): T = Application.Transpose(.Range("A7", .Cells(Rows.Count, "A").End(xlUp)).Value): End With
    maxlig = Round(UBound(T) / 2)
    ReDim T2(1 To UBound(T), 1 To 4)
    For I = 1 To UBound(T): x = Round(1 + (Rnd * (UBound(T) - 1))): temp = T(I): T(I) = T(x): T(x) = temp: Next
    C = 1: LIg = 0
    For I = 1 To UBound(T):
        LIg = LIg + 1: T2(LIg, C) = T(I): If LIg = maxlig Then C = 3: LIg = 0
    Next
    With Cells(7, cx).Resize(UBound(T2), 4)
        .ClearContents
        .Value = T2
    End With
End Sub