Sheets(Array("Reporting palettes par mois", "Reporting complet")).Copy
ChDir "C:\Archives photobox\Archives reporting"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=chemin & "Reporting Photobox du " & _
Format(Worksheets("Reporting complet").Range("L1"), "d\-mm\-yyyy") & ".xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
ActiveWindow.Close