Sub GenereArchives()
Dim Chemin_Archive As String, Fichier As String, Fch As String
Dim temp As String
Chemin_Archive = "S:\Superviseur\Emballage\Planification\"'à adapter
Fch = Replace("Fichier planif du " & Sheets("Lundi").Range("F1") & " au " & Sheets("Feuil2").Range("F1") & ".xlsm", "/", "_") 'Nom d'onglet à adapter
i = 0
Fichier = Dir(Chemin_Archive & Fch)
If Fichier <> "" Then
Do
temp = Left(Fch, Len(Fch) - 5)
Fichier = Dir(Chemin_Archive & temp & "_" & i + 1 & ".xlsm")
i = i + 1
Loop While Fichier <> ""
ThisWorkbook.SaveCopyAs Chemin_Archive & temp & "_" & i & ".xlsm"
Else
ThisWorkbook.SaveCopyAs Filename:=Chemin_Archive & temp & ".xlsm"
End If
End Sub