Bonsoir,
Pour faire apparaître la commande Enregistrer sous tu peux utiliser la commande getsaveasfilename qui simule un "enregistrer sous" mais qui permet de récupérer le path dans lequel l'utilisateur veut sauvegarder son fichier.
sauvefichier=application.getsaveasfilename(,"Fichiers Excel (*.xls), *.xls")
activeworkbook.Saveas filename:=sauvefichier
A+++
PS Je suis sous XL 2000, regarde l'aide VBA 2002 voir si cette fonction n'a pas été améliorer....