La macro va s'exécuter à la fermeture du classeur
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim nom_dossier, date_dossier, nom_fichier As Variant
'remplace "Feuil1" par le nom de ta feuille
nom = Sheets("Feuil1").Range("A1").Value
'on change les "/" de la date par "_" pour éviter les erreurs
date_création = Replace(Sheets("Feuil1").Range("B1").Value, "/", "_")
'on compose le nom du fichier
nom_fichier = "Formulaire de " & nom & " fait le " & date_création
On Error Resume Next
'on enregistre le fichier
ActiveWorkbook.SaveAs Filename:= _
nom_fichier & ".xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
End Sub
J'espère que ça t'aidera