Boucler sur les boutons de type formulaire

Sub BoucleBouton()
Dim Sh As Shape
    For Each Sh In ActiveSheet.Shapes
        If Sh.Type = msoFormControl Then
            If Sh.FormControlType = xlButtonControl Then
                MsgBox Sh.Name & " : " & Sh.OnAction
            End If
        End If
    Next Sh
End Sub

Sub BoucleBouton_Ref_Classeur()
'Totititi
Dim Sh As shape
    For Each Sh In ActiveSheet.Shapes
        If Sh.Type = msoFormControl Then
            If Sh.FormControlType = xlButtonControl Then
                'MsgBox Sh.Name & " : " & Sh.OnAction
                'MsgBox Sh.OnAction
                'Cells(10, 11) = Sh.OnAction
                'MsgBox Len(Sh.OnAction)
               'Sh.OnAction = "test"
                For i = 1 To Len(Sh.OnAction)
               If Mid(Sh.OnAction, i, 1) = "!" Then GoTo suite
               Next
suite:
    'Stop
    NOMacro = Mid(Sh.OnAction, i + 1, Len(Sh.OnAction) - i)
    Sh.OnAction = NOMacro
                'Stop
            End If
        End If
    Next Sh
End Sub