.SaveAs Filename:=Repertoire & Sep & "Archives" & Sep & Fichier & ".xlsx"
With wDestination
.SaveAs Filename:=Repertoire & Sep & "Archives" & Sep & Fichier & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
MsgBox Fichier & " sauvegardé(e)"
.Close
End With
With wDestination
.SaveAs Filename:=Repertoire & Sep & "Archives" & Sep & Fichier & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
MsgBox Fichier & " sauvegardé(e)"
.Close
End With
Msgbox Repertoire & Sep & "Archives" & Sep & Fichier & ".xlsx"