Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, Columns("A"))
If Target Is Nothing Then Exit Sub
Dim ref As Range
For Each Target In Target
Set ref = [Choix].Find(Target, LookIn:=xlValues, LookAt:=xlWhole)
If ref Is Nothing Then
Target.Offset(, 1).Resize(, 2).Clear
Else
Union(ref.Offset(, 1), ref.Offset(, 3)).Copy Target.Offset(, 1)
End If
Next
End Sub