Public NomFichierPublic As String
Dim sRep As String 'Répertoire de sauvegarde
Dim sFilename As String 'Nom du fichier
Sub SAUVEGARDE()
Dim Répertoire As String, Nf As String, NomFichier As String
Dim N As Long
Répertoire = ActiveWorkbook.Path & "\OLD"
'Si le dossier OLD n'éxiste pas alors je le créer
If Dir(Répertoire, vbDirectory) = "" Then MkDir (Répertoire)
'et j'incrémente le n° de fichier pour les 2 cas
NomFichier = ThisWorkbook.Name
Nf = Dir(Répertoire & "\" & NomFichier & "*" & ".xlsm")
N = 0
Do While Nf <> ""
N = N + 1
Nf = Dir
Loop
'Sauvegarde une copie du fichier et ne touche donc pas au fichier en cours
ActiveWorkbook.SaveCopyAs Filename:=Répertoire & "\" & NomFichier & " - V" & N + 1 & ".xlsm"
End Sub