Hyperlink.Shape (Excel)

Renvoie un objet Shape qui représente la forme liée au lien hypertexte spécifié.

Dim shpShape As Shape
Set shpShape = ActiveCell.Hyperlinks(1).Shape