Sub EnregistrerAvecVersion()
NomCourt = Mid(ActiveWorkbook.Name, 1, Len((ActiveWorkbook.Name)) - 4)
FileSVG = Application.GetSaveAsFilename(InitialFileName:=NomCourt & _
"-Version X.xls", fileFilter:="Fichiers Excel (*.xls), *.xls", _
Title:="Enregistrer avec le nom proposé ?")
ActiveWorkbook.SaveAs Filename:=FileSVG, FileFormat:=xlNormal, Password:="", _
WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
End Sub