Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target <> "" Then
R = Application.Match(Target, Sheets(2).Range("a1:a10000"), 0)
ActiveSheet.Hyperlinks.Add anchor:=Selection, Address:="", SubAddress:="Feuil2!A" & R 'Sheets(2).Range("a" & R)
End If
End Sub