Bonjour,
désolé mais je n'avais pas tout lu
il suffit d'associer cette macro à un bouton ou un raccourci
Sub Enregistrer()
Chemin = 'q:\\xxxx\\'
NomFic = 'FICHIER_' 'racine du nom de fichier
Cells(1, 1).Value = Cells(1, 1) + 1
ActiveWorkbook.SaveAs Filename:=Chemin & NomFic & Format(Cells(1, 1).Value, '000') & '.XLS', _
FileFormat:=xlNormal, Password:='', WriteResPassword:='', _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub