décocher tout !

Sub Coche()
Dim o As Object
For Each o In Sheets("Feuil1").DrawingObjects
  If o.Name Like "Check Box*" Then o.Value = True
Next
End Sub

Sub Decoche()
Dim o As Object
For Each o In Sheets("Feuil1").DrawingObjects
  If o.Name Like "Check Box*" Then o.Value = False
Next
End Sub

Sub CocheDecoche()
Dim test As Boolean, o As Object
With Sheets("Feuil1")
  test = Not .DrawingObjects("Bouton 9").Text Like "*dé*"
  For Each o In .DrawingObjects
    If o.Name Like "Check Box*" Then o.Value = test
  Next
  .DrawingObjects("Bouton 9").Text = "tout " & IIf(test, "dé", "") & "cocher"
End With
End Sub