Sub create_fichier_modele()
Application.DisplayAlerts = False
fic_mod = "Modele_poste.xlt" ' nom du fichier xlt
feuille_modele = "Poste base" ' nom de la feuille du classeur
rep = ThisWorkbook.Path
fic_trav = ThisWorkbook.Name
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=rep & Application.PathSeparator & fic_mod, _
FileFormat:=xlTemplate, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Workbooks(fic_trav).Sheets(feuille_modele).Copy Before:=Workbooks(fic_mod).Sheets(1)
Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select
ActiveWindow.SelectedSheets.Delete
ActiveWorkbook.Save
ActiveWindow.Close
Application.DisplayAlerts = True
'pour inserer la sheet:
'Sheets.Add type:=ThisWorkbook.Path & Application.PathSeparator & fic_mod, after:=Sheets(xx)
End Sub