Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, [A2:A65536])
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).Clear
Else
ref.Offset(, 1).Copy Target.Offset(, 1)
End If
Next
End Sub