Bonjour Romain, bonjour le forum,
Essaie comme ça :
Sub Macro1()
Dim O As Worksheet 'déclare la variabe O (Onglet)
Dim NF As String 'déclare la variable NF (Nom Fichier)
Dim BES As FileDialog 'déclare la variable BES (Boîte Enregistrer Sous)
Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter à ton cas)
NF = O.Range("A1").Value 'définit le nom du fichier OF
If NF = "" Then Exit Sub 'si NF est vide, sort de la procédure
Set BES = Application.FileDialog(msoFileDialogSaveAs) 'définit la boîte de dialogue BES
BES.AllowMultiSelect = False 'n'autorise qu'une seule sélection
BES.InitialFileName = NF 'nom par défaut
BES.Show 'affiche la boîte
BES.Execute 'valide l'enregistrement
End Sub