XL 2016 Copie ligne avec teste

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