XL 2021 Création de poule pour un tournois

Option Explicit
Function Groupes43(ByVal Total As Integer) As Byte()
   CalcGroup43 Groupes43, Total
   End Function
Sub CalcGroup43(T() As Byte, ByVal Total As Integer)
   Dim Nb3 As Byte, N As Integer
   ReDim T(1 To (Total + 3) \ 4)
   Nb3 = UBound(T) * 4 - Total
   For N = UBound(T) To 1 Step -1
      If Nb3 > 0 Then
         T(N) = 3: Nb3 = Nb3 - 1
      Else
         T(N) = 4
         End If
      Next N
   End Sub

Option Explicit
Sub CreerGroupes()
   Dim RngInsc As Range, TInsc(), T43() As Byte, TRésu(), LInsc As Integer, L As Integer, C As Integer
   Set RngInsc = [T_Inscrits[NOM P.]]
   With RngInsc(RngInsc.Rows.Count, 1)
      If IsEmpty(.Value) Then Set RngInsc = RngInsc.Resize(.End(xlUp).Row - RngInsc.Row + 1)
      End With
   TInsc = RngInsc.Value
   CalcGroup43 T43, UBound(TInsc, 1)
   ReDim TRésu(1 To 4, 1 To 10)
   LInsc = 0
   For C = 1 To UBound(T43)
      For L = 1 To T43(C)
         LInsc = LInsc + 1
         TRésu(L, C) = TInsc(LInsc, 1)
         Next L, C
   WshDonnées.[E2:N5].Value = TRésu
   WshDonnées.Activate
   End Sub