Macro - Décocher toutes les "cases à cocher"

Bonjour à vous tous !

J'ai un fichier excel avec une 100taine de cases à cocher.
Par contre, j'aimerai pouvoir les décocher toutes et d'un coup !

Pour se faire, je me suis créée un [bouton] qui va actionner une macro.
Mes "cases à cocher" sont faites via le Contrôles de formulaire (et non contrôles ActiceX).

Par contre, en lignes de codes, je ne m'y connais aucunement.
J'ai trouvé ceci sur internet, mais ça ne fonctionne pas trop...
Je ne comprends pas le: Sheets("Liste").Shapes

Sub Décocher()
Dim Shp As Shape
For Each Shp In Sheets("Liste").Shapes
    If Shp.Name Like "Check Box*" Then
        Shp.DrawingObject.Value = False
    End If
Next Shp
End Sub

Merci de votre coup de main !