Salut Plm et le forum
Un bout de code, te reste juste à l'adapter
Sheets("Feuil1").Select
Sheets("Feuil1").Copy
ActiveWorkbook.SaveAs FileName:= _
"C:\mes documents\" & "nomduclasseur", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Mytå