Macro enregistrement feuille

Sub SaveFeuilleDeRoute()
  Worksheets("Feuille de route").Copy
  ActiveWorkbook.SaveAs Filename:="F:\EXPLOITATION\" & Format(Date, "ddmmyyyy")
End Sub

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