J'ai trouvé (et tout seul SVP !!) donc je ne me prive pas de vous livrer la réponse car j'avais cherché un bon moment sur les forums auparavant...
J'aurai peut être du chercher par moi-même plus tôt...
Donc ce qui fonctionne :
Sub enregistrement_fichier()
Dim nomfichier As String
nomfichier = Worksheets("Feuil1").Cells(1, 2).Value & " " & Worksheets("Feuil1").Cells(2, 3) 'par exemple : utilise les valeurs des cellules B1 et C2 de la feuille 1 pour pré-nommer le fichier à enregistrer sous, nom modifiable par l'utilisateur
Application.Dialogs(xlDialogSaveAs).Show nomfichier, xlOpenXMLWorkbookMacroEnabled 'ouvre la boîte de dialogue Enregistrer sous
End Sub
Merci à tous ceux qui utiliseront ce code de me passer un mail
