Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Or Target.Row = 1 Then Exit Sub
cherch = Range("A" & Target.Row)
l = Sheets("Ressources 2").Columns(1).Find(cherch, lookat:=xlWhole, LookIn:=xlValues).Row
c = Sheets("Ressources 2").Rows(1).Find(Cells(1, Target.Column)).Column
Sheets("Ressources 2").Cells(l, c) = Target.Value
End Sub