Const XLD_URL As String = 'Lien supprimé
Const XLD_Title As String = 'Info Bulle et Lien Hypertexte'
Const XLD_Tip As String = 'Coucou et Vive XLD ! J - 1'
Sub HyperLinkBuilder1()
Dim WS As Worksheet
Dim Cell As Range
Dim i As Byte
Dim HLink As Hyperlink
Set WS = Sheets('Feuil1')
For i = 1 To 15
Set Cell = WS.Cells(i, 1)
Set HLink = WS.Hyperlinks.Add(Anchor:=Cell, Address:=XLD_URL)
With HLink
.TextToDisplay = XLD_Title
.ScreenTip = XLD_Tip
End With
Next i
End Sub