Sub Macro1()
'
' Macro1 Macro
'
'
Sheets("Feuil1").Select
Sheets("Feuil1").Copy
ActiveWorkbook.SaveAs Filename:= _
"D:\Classeur21.xlsx", FileFormat _
:=xlOpenXMLWorkbook, CreateBackup:=False
Calculate
ActiveWorkbook.Save
ActiveWindow.Close
Range("D7").Select
End Sub