Sub CopieFeuilles()
' Copie chaque feuille or Entete dans des fichiers séparés.
' Les fichiers sont sauvegardés au même niveau que le fichier courant.
' Chaque fichier est appelé par le nom de la feuille.
Dim WB As Workbook, NomFichier As String, Chemin As String
Application.ScreenUpdating = False
For Each Sh In Worksheets
If Sh.Name <> "Entete" Then ' Feuille Entete non concernée
Chemin = ThisWorkbook.Path & "\"
NomFichier = Chemin & Sh.Name & ".xlsx"
Set WB = Workbooks.Add(xlWBATWorksheet)
ThisWorkbook.Sheets(Sh.Name).Copy Before:=WB.Sheets(1)
WB.SaveAs Filename:=NomFichier, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
WB.Close SaveChanges:=True
End If
Next Sh
Sheets("Entete").Select
End Sub