Bonjour Agnès,
j'ai utilisé une macro événementielle sur la page code de la feuille "Planning"
à tester,
Private Sub Worksheet_Change(ByVal Target As Range)
Set isect = Application.Intersect(Target, Range("B2:NB5"))
If Not isect Is Nothing Then
sh = Cells(Target.Row, 1)
rw = Application.Match(Cells(1, Target.Column), Sheets(sh).Range("A:A"), 0)
Sheets(sh).Range("B" & rw) = Target
End If
End Sub