Sub copier()
Dim nomfichier$
ThisWorkbook.SaveAs "H:\sauvegardes\test1.2.xls"
Workbooks("test1.2.xls").Activate
Sheets("Feuil1").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Formulaire").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Feuil2").Select
ActiveWindow.SelectedSheets.Delete
nomfichier = Format(Date, "dd-mm-yyyy_") & Format(Time, "hhmm") & ".xls" 'test ok
ActiveWorkbook.SaveAs Filename:="C:\Temp\" & nomfichier, FileFormat:=xlNormal
End Sub