Bonjour,
enregistrer une feuille ou un classeur
pour le classeur :
Application.Dialogs(xlDialogSaveAs).Show
ou
chemin = "C:\......\ " >>A DEFINIR
fichier_dest = "toto"
ActiveWorkbook.SaveAs FileName:=chemin & fichier_dest _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
A+
Eric