Sub MAJpiquets()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim i As Long
Dim Cible As Workbook, Source As Workbook
Set Cible = ThisWorkbook
For i = 2 To 10
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
Set Source = Application.Workbooks.Open(gardedujour)
Sheets("01").Range("AC4").Copy
Cible.Activate
Cells(i, 2).PasteSpecial Paste:=xlPasteValues
Source.Activate
Sheets("01").Range("AC7").Copy
Cible.Activate
Cells(i, 3).PasteSpecial Paste:=xlPasteValues
Source.Activate
Sheets("01").Range("AT4").Copy
Cible.Activate
Cells(i, 4).PasteSpecial Paste:=xlPasteValues
Source.Activate
Sheets("01").Range("AT7").Copy
ActiveWorkbook.Close False
Cible.Activate
Cells(i, 5).Select
ActiveSheet.Paste
Next i
End Sub