Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column <> 3 Or Target.Row < 5 Or Target = "" Then Exit Sub
If IsNumeric(Application.Match(Target, Feuil1.[A:A], 0)) Then
x = Application.Match(Target, Feuil1.[A:A], 0)
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="Feuil1!A" & x
End If
End Sub