Les événements Worksheet_FollowHyperlink et Workbook_SheetFollowHyperlink se déclenchent lors d'un clic sur un lien dans une cellule (Range). Comment le faire en cliquant sur un objet shape ?

Tu peux ouvrir une page web (si l'hyperlien que tu cherches à activer est une adresse internet) depuis une forme de la barre d'outils Dessin en lui affectant une petite macro :

Private Declare Function ShellExecute Lib "shell32.dll" Alias _   
"ShellExecuteA" (ByVal hWnd As Long, ByVal lpszOp As String, _   
ByVal lpszFile As String, ByVal lpszParams As String, _   
ByVal lpszDir As String, ByVal FsShowCmd As Long) As Long    

sub HyperLien()
 lien = "http://www.excelabo.net"
 ShellExecute 0, "open", lien, vbNullString, vbNullString, 1
 end sub