Macro pour effacer toutes les cases a cocher sur toutes les feuilles

Bonjour,

Je suis débutant en VBA et je cherche une macro pour effacer toutes les case a cocher sur toutes les feuilles.

En vous remerciant.

Bonjour toutes et tous

@ tester

en ayant, par exemple 2 onglets du classeur, avec Feuil1 et Feuil2

Option Explicit

Sub resetCheckBox()
' déclaration des variables
Dim Shp, Shp1 As Shape

For Each Shp In Sheets("FEUIL1").Shapes
    If Shp.Name Like "Check Box*" Then
        Shp.DrawingObject.Value = False
    End If
Next Shp
For Each Shp1 In Sheets("FEUIL2").Shapes
    If Shp1.Name Like "Check Box*" Then
        Shp1.DrawingObject.Value = False
    End If
Next Shp1

End Sub

crdlt,

André