Dim Chemin As String
Application.ScreenUpdating = False
Chemin = "" ' Ici ton chemin
Nom = "" ' ici le nom de ton fichier ou de la cellule
Sheets("Feuil1").Copy
With ActiveWorkbook
.SaveAs Filename:=Chemin & " " & Nom
.Close
End With