Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A65536")) Is Nothing And Target.Count = 1 Then
Target.Offset(0, 1) = Application.VLookup(Target.Value, Sheets("Données").Range("A2:B65536"), 2, 0)
End If
If Not Intersect(Target, Range("B2:B65536")) Is Nothing And Target.Count = 1 Then
Target.Offset(0, -1) = Application.VLookup(Target.Value, Sheets("Données").Range("B2:C65536"), 2, 0)
End If
End Sub