Sub Set_HLink()
Dim Cell As Range, Ws As Worksheet
Set Ws = Worksheets("NOM")
For Each Cell In Ws.Columns("A").Cells
If Cell = "" Then Exit For
If Not IsFeuille(Cell.Text) Then Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = Cell.Text
Ws.Hyperlinks.Add Anchor:=Cell, Address:="", _
SubAddress:=Cell & "!A1", TextToDisplay:=Cell.Text
Next
Ws.Activate
Set Ws = Nothing
End Sub
Function IsFeuille(ByVal Cible As String, Optional FType As XlSheetType = xlWorksheet) As Boolean
Dim Obj As Object
IsFeuille = False
For Each Obj In...