Sub Check_All_BO_Controle()
On Error Resume Next
For Each s In Worksheets("Feuil1").Shapes
If TypeName(s.OLEFormat.Object.Object) = "CheckBox" Then
If Err = 0 Then
s.OLEFormat.Object.Object.Value = True
Else
Err = 0
End If
End If
Next
End Sub
Sub Check_All_BO_Formulaire()
With Worksheets("Feuil1")
For Each c In .CheckBoxes
c.Value = 1
Next
End With
End Sub