Sub b()
Dim tAdr, tJrs, i%, j%
tJrs = Array("mercredi", "jeudi", "vendredi", "samedi", "dimanche")
tAdr = Array("A20:A25", "A31:A42", "A50:A60", "A66:A73", "G11:G28")
Application.ScreenUpdating = False
For i = 0 To UBound(tJrs)
For j = 0 To UBound(tAdr)
Worksheets("mardi").Range(tAdr(j)).Copy
Worksheets(tJrs(i)).Range(tAdr(j)).PasteSpecial Paste:=xlPasteAll
Next j
Application.CutCopyMode = False
Next i
End Sub