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