code d'une macro pour décocher toute les case à cocher

Sheets("Feuil1").CheckBoxes.Value = False

Sub DecocherTOUT()
'macro qui ratisse large : tout type de CheckBox
Dim sh As Shape
Application.ScreenUpdating = False
For Each sh In ActiveSheet.Shapes
    If sh.Type = msoOLEControlObject Then
      If TypeName(sh.OLEFormat.Object.Object) = "CheckBox" Then sh.OLEFormat.Object.Object = False
    End If
    If sh.Type = msoFormControl Then
      If sh.FormControlType = xlCheckBox Then sh.OLEFormat.Object = False
    End If
Next sh
Application.ScreenUpdating = True
End Sub