Bonsoir,
un exemple a adapter a ton cas (nom du fichier dans cellule A1 de la "Feuil1"
Sub enregistre()
nom_fichier = Sheets("Feuil1").Range("A1").Value
ChDir "C:\Users\maguetlolo\Desktop"
ActiveWorkbook.SaveAs Filename:="C:\Users\maguetlolo\Desktop\" & nom_fichier & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
cordialement