Code dans fonction recherche INDEX/EQUIV

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Range("F4").Value = Application.Intersect(Target.Resize(1, 1).EntireRow, Range("D:D")).Text
'Cancel = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B15:B22")) Is Nothing Then _
[F4].FormulaLocal = "=INDEX(D15:D22;EQUIV(" & Target.Address & ";B15:B22))"
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set C = ActiveSheet.Columns("B").Find(What:=Target)
If Not C Is Nothing Then [F4] = C.Offset(0, 2).Value
End Sub