Sub macroarchiver()
Dim NomFic As String
Dim DateDeb As Date
Dim DateFin As Date
DateDeb = DateSerial(year(Date) - 1, Month(Date) - 1, 1)
DateFin = DateSerial(year(Date), Month(Date) - 2, 1)
NomFic = "CR ACC " & Format(DateDeb, "MM-YY") & " to " & Format(DateFin, "MM-YY")
FileCopy "\\gol9\lbhkh\macro analysis\fichier CR\NomFic.xls", _
"\\gol9\lbhkh\macro analysis\fichier CR\Archives\NomFic.xls "
Kill "\\gol9\lbhkh\macro analysis\fichier CR\NomFic"
End Sub