Sub MAJpiquets()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim rotation As Workbook
For i = 2 To 5
jourgarde = Cells(i, 1)
jourgarde = Format(jourgarde, "dd/mm/yyyy")
gardedujour = ThisWorkbook.Path & "\" & Format(jourgarde, "yyyy") & "\" & Format(jourgarde, "mmmmyyyy") & "\" & Format(jourgarde, "ddmmmmyyyy"".xls")
'MsgBox gardedujour
Workbooks.Open (gardedujour)
Sheets("01").Select
Range("AC4").Select
Selection.Copy
Windows("rotation.xlsm").Activate
Cells(i, 2).Select
Selection.PasteSpecial Paste:=xlPasteValues
Workbooks.Open (gardedujour)
Range("AC7").Select
Selection.Copy
ActiveWorkbook.Close False
Workbooks("rotation.xlsm").Activate
Cells(i, 3).Select
ActiveSheet.Paste
Next i
End Sub