Sub Liens_html()
Dim i As Integer
For i = 3 To Range("A65536").End(xlUp).Row
If Feuille_Existe(Range("A" & i)) And Range("A" & i) <> "References" Then
Range("A" & i).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & Range("A" & i) & "'" & "!A1" ', TextToDisplay:=Range("A" & i)
End If
Next i
End Sub
Function Feuille_Existe(ByVal Nom_Feuille As String) As Boolean
Dim Feuille As Excel.Worksheet
On Error GoTo Feuille_Absente_Error
Set Feuille = ActiveWorkbook.Worksheets(Nom_Feuille)
On Error GoTo 0
Feuille_Existe = True
Exit Function
Feuille_Absente_Error:
Feuille_Existe = False
End Function