Microsoft 365 lancer une macro juste en sélectionnant une forme (Shape)

Sub Essai()
    For Each S In ActiveSheet.Shapes
        S.OnAction = "MaMacro"
    Next
    [A1].Select
End Sub

Sub Essai()
    Dim Sh As Shape
For Each Sh In Sheets("Feuil1").Shapes
'On Error Resume Next
If Sh.Name Like "PO_06_*" Or Sh.Name Like "PO_09_*" Or Sh.Name Like "PO_25_*" Or Sh.Name Like "CO_02_*" Or Sh.Name Like "CO_05_*" Or Sh.Name Like "CO_25_*" Or Sh.Name Like "EP_06_*" Then

        S.OnAction = "MaMacro"
End If
    Next
    [A1].Select
  
End Sub
Sub MaMacro()

    MsgBox "Nom de la forme sélectionnée : " & Application.Caller
End Sub

Sub Essai()
    For Each S In ActiveSheet.Shapes
        S.OnAction = "MaMacro"
    Next
    [A1].Select
End Sub
Sub MaMacro()
Sh = Application.Caller
If Sh = "PO_06" Or Sh = "PO_09" Or Sh = "PO_25" Or Sh = "CO_02" Or Sh = "CO_05" Or Sh = "CO_25" Or Sh = "EP_06" Then
    MsgBox "Nom de la forme sélectionnée : " & Application.Caller & Chr(10) & Chr(10) & _
            " Texte dans forme : " & VbTab & ActiveSheet.Shapes(Sh).TextFrame.Characters.Text
End If
End Sub