Bonjour
Si j'ai bien compris
quelque chose comme ceci
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row <> 2 And Target.Column > 1 Then Exit Sub
l = Sheets("ressources").Columns(1).Find(Target.Parent.Cells(Target.Row, 1)).Row
c = Sheets("ressources").Rows(1).Find(Target.Parent.Cells(1, Target.Column)).Column
Sheets("ressources").Cells(l, c) = Target.Value
End Sub