Sub Recopie()
Dim Prof As String, Jour As String
Dim L As Byte, C As Byte
Prof = Range("C" & ActiveCell.Row)
Jour = Application.Proper(Format(Range("B" & 4 + 10 * Int(ActiveCell.Row / 12)), "dddd"))
With Sheets(Prof)
L = .Columns(1).Find(Jour).Row
C = .Rows(2).Find(Cells(3, ActiveCell.Column)).Column
ActiveCell.Copy .Cells(L, C)
End With
End Sub