bah, pas besoin d'être un pro, c'est très simple, voici un exemple. C'est un label qui renvoie un lien :
Private Sub LabelLien_Click()
Dim Lien As String
Lien = "http://www.Excel-downloads.com"
On Error GoTo PasConnect
ActiveWorkbook.FollowHyperlink Address:=Lien, NewWindow:=True
Unload Me
Exit Sub
PasConnect:
MsgBox "Impossible d'ouvrir " & Lien
End Sub