Sub StatutCheckbox_Formulaire() 
    If Feuil1.Shapes("Check Box 1").ControlFormat.Value = xlOn Then 
        MsgBox "Coché." 
        Else 
        MsgBox "Décoché." 'xlOff 
    End If 
End Sub 

Sub CocherDecocher_Checkbox_Formulaire() 
    Dim Obj As Object 
    
    Set Obj = Feuil1.Shapes("Check Box 1").OLEFormat.Object 
    
    If Obj.Value = xlOff Then 
        Obj.Value = xlOn 
        Else 
        Obj.Value = xlOff 
    End If 
End Sub

Sub BoucleCheckBoxes_Formulaire() 
    Dim Cb As CheckBox 
    
    'Boucle sur les checkboxes formulaires de la Feuil1 
    For Each Cb In Feuil1.CheckBoxes 
        'si la case est cochée 
        '(utilisez xlOff pour vérifier le statut "décoché") 
        If Cb.Value = xlOn Then 
            Debug.Print Cb.Name 
        End If 
    Next Cb 
End Sub

Sub Supprime_ObjetsFormulaires() 
    Dim Obj As Shape 
    
    'Boucle sur les formes de la feuille active 
    For Each Obj In ActiveSheet.Shapes 
        'Identifie les objets formuaires et les supprime 
        If Obj.Type = msoFormControl Then Obj.Delete 
    Next Obj 
End Sub

Sub IdentifieMultiselection_ListBoxFormulaire() 
    Dim i As Integer 
    With Worksheets("Feuil1") 
        For i = 1 To .ListBoxes("List Box 1").ListCount 
            If .ListBoxes("List Box 1").Selected(i) Then 
                MsgBox .ListBoxes("List Box 1").List(i) 
            End If 
        Next i 
    End With 
End Sub

Sub AjouteComboBox_Formulaire() 
    Dim Obj As Object 
    
    'Ajoute le ComboBox dans la feuille 
    '...DropDowns.Add(PositionHorizontale, PositionVerticale, Largeur, Hauteur) 
    Set Obj = Feuil1.DropDowns.Add(295, 150, 170, 15) 
    
    With Obj 
        'Renomme la forme. 
        .Name = "Cible" 
        'Définit la plage de données qui va s'afficher dans le ComboBox 
        .ListFillRange = "Feuil2!A1:A10" 
        'Définit la cellule liée (La cellule affichera l'index de l'élément 
        'sélectionné dans la ComboBox). 
        .LinkedCell = "Feuil1!$H$10" 
        'Nombre d'éléments visibles sans vavoir besoin 
        'd'utilisation la barre de défilement verticale. 
        .DropDownLines = 8 
        .Display3DShading = False 
    End With 
End Sub 

Feuil1.Shapes("Cible").Delete 

Sub AjouteSerieBoutonsFormulaires()
    Dim i As Byte
    Dim x As Integer
    Dim Code As String
    Dim S As Shape
    
    For i = 2 To 11
        'création des boutons dans la Feuil1
        With Feuil1
            Set S = .Shapes.AddFormControl(xlButtonControl, .Cells(i, 2).Left, .Cells(i, 2).Top, _
                .Cells(i, 2).Width, .Cells(i, 2).Height)
        End With
        
        'Définit le texte qui va s'afficher dans le bouton.
        S.TextFrame.Characters.Caption = "bouton " & i
        'Attache une macro au bouton
        S.OnAction = "MacroBouton"
    Next i

    'Crée dynamiquement la macro attachée aux boutons.
    Code = "Sub MacroBouton" & vbCrLf
    Code = Code & "MsgBox Application.Caller" & vbCrLf
    Code = Code & "End Sub"
    
    'Insertion de la macro dans le **Module1**.
    '(adaptez le nom du module si nécessaire)
    With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
        x = .CountOfLines + 1
        .InsertLines x, Code
    End With

End Sub