[galopin01]

Bonsoir,
Pour rester sur la même idée que Michel il y a aussi :

Sub Test()
Application.Dialogs(xlDialogSaveAs).Show
End Sub

Tout dépend de la finalité exacte.
A+