Récupérer adresse cellule contenant une forme

Bonjour

Comme dit dans le titre, j'aimerais créer une macro qui, lorsque je clique sur une forme qui est dans une cellule, cela m'affiche la ligne de cette cellule en msgbox.

Sachant que j'ai beaucoup de forme je voudrais faire une macro commune à toute.

Merci de votre aide !

Bonjour,

Sub Hexagone1_Cliquer()
Nom = Application.Caller
rw = ActiveSheet.Shapes(Nom).TopLeftCell.Row
MsgBox Application.Caller & " - " & rw
End Sub

Niquel, merci beaucoup !