Sub Copie_nom_onglet()
'
' Copie_nom_onglet Macro
'
Dim derlig As Long, Col As Long
Dim sh As Worksheet
'Le nombre de colonnes est censé être le même pour toutes les feuille
Col = Sheets("Janvier").Cells(1, Columns.Count).End(xlToLeft).Column + 1
'Recopier l 'entête de Janvier dans feuille 3
Sheets("Janvier").Range("A1").Resize(, Col).Copy Sheets("Feuil3").Range("A1").Resize(, Col)
Sheets("Feuil3").Cells(1, Col) = "Période"
'Mettre tous les noms de feuilles concernées par la boucle dans la liste Array(....)
For Each sh In Sheets(Array("Janvier", "Fevrier"))
'travailler sur la feuille en cours de boucle
With sh
'Nouvel entête
.Cells(1, Col) = "Période"
'récupérer le numéro de dernière ligne de la colonne A
derlig = .Range("A" & Rows.Count).End(xlUp).Row
'Construction d'une plage allant de la ligne 2 à la dernière ligne et de colonne col
.Range(.Cells(2, Col), .Cells(derlig, Col)).Value = .Name ' y mettre le nom de la feuille
'copier le la ligne 2 colonne 1, à derligne Colonne col vers feuil3 première ligne disponible
.Range(.Cells(2, 1), .Cells(derlig, Col)).Copy Sheets("Feuil3").Cells(Rows.Count, 1).End(xlUp)(2)
End With
Next
'
End Sub