[COLOR="DarkSlateGray"][B]Sub recap()
Dim nSh&, nCol&, shList
[COLOR="SeaGreen"]'Liste des feuilles à regrouper :[/COLOR]
shList = Array("Haz", "Ga", "Bo", "Po")
[COLOR="SeaGreen"]'Détermination du nombre de colonnes de données, à partir de l'intitulé des colonnes
'de la première feuille à traiter. nCol prend le n° de la dernière colonne de données.[/COLOR]
nCol = Sheets(shList(0)).[A1].End(xlToRight).Column
[COLOR="SeaGreen"]'Ajout d'une feuille vierge avant le première feuille du classeur :[/COLOR]
ActiveWorkbook.Worksheets.Add Before:=ActiveWorkbook.Sheets(1)
[COLOR="SeaGreen"]'Copie de la première ligne de la première feuille de données dans la première ligne de
'la nouvelle feuille :[/COLOR]
Sheets(shList(0)).[A1].Resize(1, nCol).Copy Destination:=ActiveSheet.[A1]
[COLOR="SeaGreen"]'On va "boucler" sur chacune des feuilles à traiter :[/COLOR]
For nSh = 0 To UBound(shList)
[COLOR="SeaGreen"]'Avec chaque feuille à traiter :[/COLOR]
With Sheets(shList(nSh))
[COLOR="SeaGreen"]'Copie des données de la ligne 2 à la dernière ligne de données de la feuille en cours
'de traitement vers la première ligne vide de la feuille de récapitualtion :[/COLOR]
.[A1].Resize(.Cells(.Cells(.Rows.Count, 1).End(xlUp).Row - 1, 1).Row, nCol).Offset(1, 0).Copy _
Destination:=[A1].Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End With
Next
End Sub[/B][/COLOR]