Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Variant
With Feuil1 'CodeName de la feuille
i = Application.Match(Target, .[B:B], 0)
If IsNumeric(i) And IsNumeric(Target) Then Application.Goto .Cells(i, "F")
End With
End Sub