Sub Copies()
Dim wb As Workbook: Set wb = ThisWorkbook
Dim ws As Worksheet
For Each ws In wb.Worksheets
If Range("Mon_test") = ws.Range("H4") Then
Range("Ma_plage").Copy
ws.Cells(5, 5).PasteSpecial Paste:=xlPasteValues
Range("Ma_plage2").Copy
ws.Cells(2, 48).PasteSpecial Paste:=xlPasteValues
MsgBox "OK"
Exit Sub
End If
Next
End Sub
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