Cette macro sauvegarde 2 feuilles avec le nom de fichier qui est dans la cellule A1.
Sub Macro1()
'
'Définition du nom du fichier
vNomFichier = Cells(1, 1).Value
Sheets(Array('Sheet3', 'Sheet2')).Copy
ActiveWorkbook.SaveAs Filename:= _
vNomFichier, FileFormat:= _
xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub
Salutations
Eric