Sub jour()
Dim r1(), r2()
Dim j As Date
With Sheets("CUMUL_MOIS")
j = .[AC6].Value
r1 = .[AC8:AG8].Value
r2 = .[AC11:AC17].Value
End With
With Sheets(Format(Day(j), "00"))
.[E5].Resize(, UBound(r1, 2)).Value = r1
.[AV2].Resize(UBound(r2)).Value = r2
End With
End Sub