Sub Macro1()
Dim R As Worksheet 'déclare la variable R (onglet Récap)
Dim O As Worksheet 'déclare la variable O (onglet)
Dim TB() As Variant 'déclare la variable TB (TaBleau)
Dim K As Byte 'déclare la variable K (incrément)
Set R = Worksheets("Récap") 'définit l'onglet R
R.Range("A5").CurrentRegion.ClearContents 'efface d'éventuelles anciennes données de l'onglet "Récap"
K = 1 'initialise la variable K
For Each O In Sheets 'boucle sur tous les onglets O du classeur
If Not O.Name = R.Name Then 'condition : si le nom de l'onglet n'est pas "Récap"
ReDim Preserve TB(1 To 2, 1 To K) 'redimensionne le tableau TB (2 lignes, K colonnes)
TB(1, K) = O.Name 'récupère le nom de l'onglet dans la ligne 1
TB(2, K) = O.Cells.Find("total", , xlValues, xlWhole).Offset(2, 0) 'récupère le total dans la ligne 2
K = K + 1 'incrémente K (ajoute une colonne au tableau TB
End If 'fin de la condition
Next O 'prochain onglet de la boucle
R.Range("A5").Resize(K - 1, 2).Value = Application.Transpose(TB) 'renvoie das A5 redimensionnée le tableau TB transposé
End Sub