Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Range
If Target.Address = "$D$3" Then
Set Cel = Feuil2.[B3:B5].Find(What:=Target.Value, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If Not Cel Is Nothing Then Me.[D6].FormulaLocal = "=" & Cel.Offset(, 1).Value
End If
End Sub