Const MyName As String = "BackUp-V"
Sub AutoSaveIncremental()
Dim WS1 As Worksheet, WS2 As Worksheet
Dim MyPath As String, compteur As Byte
Set WS1 = Worksheets("Nom de la Feuille")
Set WS2 = Worksheets("Interface")
MyPath = ThisWorkbook.Path & "\"
compteur = WS2.Range("A1")
WS1.Copy
With ActiveWorkbook
.SaveAs MyPath & MyName & Format(compteur, "000")
.Close
End With
WS2.Range("A1") = compteur + 1
End Sub