Utiliser plusieurs fois d'affilés un onglet d'un menu déroulant

    Dim Sh As Shape
    
    For Each Sh In ActiveSheet.Shapes
      Sh.ControlFormat.Value = 0
    Next

Option Explicit

Private Sub Worksheet_Activate()
'vide et remplit ta liste
'à chaque fois que tu sélectionnes ta feuille
With ComboBox1
    .Clear
    .AddItem "Supprimer"
    .AddItem "Ajouter"
    .AddItem "Bidule"
End With
End Sub

Private Sub ComboBox1_Change()
'réalise les actions voulues
'à chaque fois que tu changes la valeur de ta liste
Select Case ComboBox1.Value
    Case "Supprimer"
        'ici tu indiques quel bloc supprimer
        'tu peux utiliser des tests if pour cela
    Case "Ajouter"
        'ici tu indiques quel bloc ajouter et ou les ajouter
        'tu peux utiliser des tests if pour cela
    
    'Case "Machin"
    
    'Case Bidule
    
    'autant de Case que de lignes dans ta combobox
    Case Else
        'autre cas
End Select
End Sub