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

Sub efface()
Dim obj As OLEObject
For n = 1 To Sheets.Count
Sheets(n).Select
 For Each obj In ActiveSheet.OLEObjects
       If Left(obj.Name, 5) = "Check" Then obj.Object.Value = False
 Next obj
Next n
End Sub

Sub caseacocher()
' effacer les cases à cocher de formulaire
For f = 1 To Worksheets.Count
    With Sheets(f)
        For Each CheckBoxes In .CheckBoxes
        If CheckBoxes.Value = xlOn Then CheckBoxes.Value = xlOff
        Next
    End With
Next f
End Sub 

Sub SupShape()
Dim s As Shape
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).Select
  For Each s In ActiveSheet.Shapes
    If s.Type = 8 Then s.Delete
  Next
  Next
End Sub