Macro pour copier/coller sous conditons...

Sub Copie()
Dim jour As Byte, i As Byte
jour = Weekday(Feuil1.[F10], 2)
For i = 0 To 10
  Feuil1.[F11].Offset(13 * i).Resize(12, 35).Copy _
    Feuil2.[F10].Offset(132 * jour + 12 * i - 132)
Next
Feuil2.[F10].Offset(132 * jour - 132).Resize(132) = Feuil1.[F10]
End Sub

Sub Copie()
Dim jour As Byte, i As Byte
jour = Weekday(Feuil1.[F10], 2)
For i = 0 To 10
  Feuil2.[F10].Offset(132 * jour + 12 * i - 132).Resize(12, 35) _
    = Feuil1.[F11].Offset(13 * i).Resize(12, 35).Value
Next
End Sub

Sub Copie1()
Feuil1.[F11:AN22,F24:AN35,F37:AN48,F50:AN61,F63:AN74,F76:AN87,F89:AN100,F102:AN113,F115:AN126,F128:AN139,F141:AN152].Copy Feuil2.[F10].Offset(132 * Weekday(Feuil1.[F10], 2) - 132)
End Sub