... impossible de trouver la fonction "enregistrer-sous"...
Option Explicit
Sub Fichier_enregistrer_sous_xls()
'chemin et nom adapter
ActiveWorkbook.SaveAs Filename:="C:\Users\00\Downloads\Classeur1.xls", _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub