Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range
If Target.Address <> "$B$2" Then Exit Sub
With Feuil2
Set C = .Columns(1).Find(Target, lookat:=xlWhole)
If Not C Is Nothing Then
Target.Offset(, 1) = C.Offset(, 1)
C.Offset(, 2).Copy Target.Offset(, 2)
End If
End With
End Sub