Aide pour faire un récapitulatif de plusieurs feuilles

Sub Recap()
Dim I As Integer
Dim J As Integer
Dim Indice As Integer
Dim Lg As Long
Dim Lg_Dep As Integer
Dim Lg_Fin As Integer
Dim Sh As Worksheet
Dim Trouve As Boolean
Dim Nom As String
Dim Tablo()
  
  With Sheets("Récap")
    .Range("A2:G" & .Range("A65536").End(xlUp).Row).ClearContents
  End With
  
  Lg_Dep = 4
  Lg_Fin = 26
  ReDim Tablo(1 To 7, 1 To 1)
  
  For Each Sh In Sheets
    If Sh.Name Like "Stats *" Then
      With Sh
        For I = Lg_Dep To Lg_Fin
          Nom = .Cells(I, "S")
          Indice = 0
          Trouve = False
          For J = 1 To UBound(Tablo, 2)
            If Nom = Tablo(1, J) Then
              Indice = J
              Trouve = True
              Exit For
            End If
          Next J
          If Indice = 0 Then
            Indice = UBound(Tablo, 2)
          End If
          Tablo(1, Indice) = .Cells(I, 19)
          For J = 2 To 7
            Tablo(J, Indice) = Tablo(J, Indice) + Int(.Cells(I, 18 + J))
          Next J
          If Trouve = False Then
            ReDim Preserve Tablo(1 To 7, UBound(Tablo, 2) + 1)
          End If
        Next I
      End With
    End If
  Next Sh
  Sheets("Récap").Range("A2:G" & UBound(Tablo, 2)) = Application.Transpose(Tablo)

End Sub

Option Explicit
Option Base 1

ReDim Preserve Tablo(1 To 7, UBound(Tablo, 2) + 1)