C'est une macro évènementielle... l'évènement est déclenché par le clic sur le lien.
Clique droit sur l'onglet de la Feuil1
Visualiser le code
Supprime le msgbox et appelle ta macro à la place
Si tu veux que cela soit actif pour tout ton classeur, sélectionne le module ThisWorkbook à partir du premier menu déroulant, sélectionne Workbook, et du second, SheetFollowHyperlink.