Sub Copie2()
Dim chemin As String
nom = ActiveWorkbook.Name
chemin = "F:\EXPLOITATION\"
Application.DisplayAlerts = False
With Sheets
.Copy
End With
MyDate = Date
ActiveWorkbook.SaveAs Filename:=chemin + Format(MyDate, "dd mm yyyy") & ".xls"
Workbooks(nom).Activate
ActiveWorkbook.Sheets(1).[a1].Select
End Sub