Sub Macro1()
Dim OC As Worksheet 'déclare la variable OC (Onglet Cible)
Dim O As Worksheet 'déclare la variable O (Onglets)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim DEST As Range 'déclare la variable DEST (cellule de DESTination)
Sheets.Add after:=Sheets(Sheets.Count) 'ajoute un onglet vierge en dernière position
ActiveSheet.Name = "Récap" 'renomme l'onglet
Set OC = ActiveSheet 'définit l'onglet OC
For Each O In Sheets 'boucle sur tous les onglets du classeur
If Not O.Name = "Récap" Then 'condition : si le nom de l'onglet est différent de "Récap"
TV = O.Range("A2").CurrentRegion 'définit le tableau de valeurs TV
'définit la cellule de destination DEST (A2, si A2 est vide, sinon la seconde cellule vide de la colonne 1 (=A) de l'onglet OC
Set DEST = IIf(OC.Range("A2").Value = "", OC.Range("A2"), OC.Cells(Application.Rows.Count, 1).End(xlUp).Offset(2, 0))
DEST.Resize(UBound(TV, 1), UBound(TV, 2)).Value = TV 'renvoie les valeurs du tableau des valeurs TV dans DEST redimensionnée
End If 'fin de la condition
Next O 'prochain onglet de la boucle
End Sub