Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal c As Range, Cancel As Boolean)
Dim où As Range
If Not Intersect(c, Range(Range("c5"), Range("c5").End(xlDown))) Is Nothing Then
Set où = Sheets("Feuil3").Rows(10).Find(c.Value, LookIn:=xlValues)
If Not où Is Nothing Then Sheets("Feuil3").Activate: où.Select
End If
End Sub