Conditions sur toutes les feuilles d'un classeur

Dim Feuille_énumérée As Integer

Dim Feuille_énumérée As Worksheet

Feuille_énumérée = ActiveWorkbook.Worksheets(Numération)

Set Feuille_énumérée = ActiveWorkbook.Worksheets(Numération)

    Dim Énumération_Feuilles_Classeur As Integer
    Dim Feuille_énumérée As Worksheet
    Dim Numération As Integer

         Énumération_Feuilles_Classeur = ActiveWorkbook.Worksheets.Count
         Set Feuille_énumérée = ActiveWorkbook.Worksheets(Numération)

    For Numération = 1 To Énumération_Feuilles_Classeur
        If Feuille_énumérée.Visible = xlSheetVisible Then
            If Feuille_énumérée.Buttons.Count > 0 Then
                Feuille_énumérée.Buttons.Delete
                Call Créer_Boutons_Environ
                MsgBox Feuille_énumérée.NAME 'pour test de la boucle
            End If
        End If
    Next Numération

Feuille_énumérée = ActiveWorkbook.Worksheets(Numération)

ActiveWorkbook.Worksheets(Numération)

If Feuille_énumérée.Buttons.Count = 0 Then

    Dim Énumération_Feuilles_Classeur As Integer
    'Dim Feuille_énumérée As Worksheet
    Dim Numération As Integer

         Énumération_Feuilles_Classeur = ActiveWorkbook.Worksheets.Count
         'Feuille_énumérée = ActiveWorkbook.Worksheets(Numération)

    For Numération = 1 To Énumération_Feuilles_Classeur
        If ActiveWorkbook.Worksheets(Numération).Visible = xlSheetVisible Then
            If ActiveWorkbook.Worksheets(Numération).Buttons.Count = 0 Then
                ActiveWorkbook.Worksheets(Numération).Buttons.Delete
                Call Créer_Boutons_Environ
                MsgBox ActiveWorkbook.Worksheets(Numération).NAME 'pour test de la boucle
            End If
        End If
    Next Numération

Sub testbtcmde()
Dim c As Object
For Each c In Worksheets
    If c.Visible = True Then
        If c.Shapes.Count > 0 Then
            c.Shapes.Item(1).Delete
            Call Créer_Boutons_Environ
            MsgBox c.Name 'pour test de la boucle
        End If
    End If
Next c
End Sub

Sub testbtcmde()
Dim c As Object
Dim Obj As OLEObject
For Each c In Worksheets
    If c.Visible = True Then
        For Each Obj In c.OLEObjects
            ' contrôle si bouton de commande
            If TypeOf Obj.Object Is MSForms.CommandButton Then
                Obj.Delete
                Call Créer_Boutons_Environ
                MsgBox c.Name 'pour test de la boucle
            End If
        Next Obj
    End If
Next c
End Sub

Sub Changer_les_Boutons_Param()

Dim c  As Object
Dim Obj As Object

    Application.ScreenUpdating = False

    For Each c In Worksheets
        If c.Visible = True Then
            If c.Shapes.Count > 0 Then
                For Each Obj In c.Shapes
                Obj.Delete
                Next Obj
                Call Créer_Boutons_Environ_Param(c)
            End If
        End If
    Next c

    Application.ScreenUpdating = True

End Sub

Sub Créer_Boutons_Environ_Param(sh As Worksheet)

    With sh.buttons.Add(3, 3, 57, 47)
        .OnAction = "Créer_Nom_Repertoire"
        .Characters.Text = "Créer les noms"
    End With

    With sh.buttons.Add(60.75, 3, 57, 47)
        .OnAction = "Créer_Repertoires"
        .Characters.Text = "Créer les répertoires"
    End With

    With sh.buttons.Font
        .NAME = "Arial"
        .FontStyle = "Normal"
        .Size = 8
    End With

End Sub

	Erreur de compilation:
	Type défini par l'utilisateur non défini

	>TypeOf Obj.Object Is MSForms.CommandButton<

Sub Activer_Références_VBProject()
    With ThisWorkbook.VBProject.References
    ' > Microsoft Forms 2.0 Object Library :
        .AddFromGuid GUID:="{0D452EE1-E08F-101A-852E-02608C4D0BB4}", Major:=2, Minor:=0
    End With
End Sub