Enregistrez sous avec macro Excel

Bonjour à tous,

Comme indiqué dans le titre, je cherche à faire un enregistrez sous avec une macro.

J'ai enregistré une macro, ca me donne ca

Sub Macro95()
'

ChDir "A:\STAGE PRESTACONCEPT\CAE"
ActiveWorkbook.SaveAs Filename:= _
"A:\STAGE PRESTACONCEPT\CAE\Tableau de Bord 2012_2013.xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

Ca fonctionne sans soucis. Le seul truc, c'est que ça enregistre directement le fichier: ca ne m'affiche pas la fenêtre qui laisse le choix à l'utilisateur de l'endroit ou il souhaiterait enregistrer son fichier...

Y a t-il un moyen de faire ca ?