Private Sub Worksheet_change(ByVal Target As Range)
Dim VAR As Byte, CBX As OLEObject
For Each CBX In Worksheets("schéma").OLEObjects
If Left(CBX.Name, 8) = "CheckBox" Then
If Target.Address = "$I$3" Then
Select Case Target
Case 1
For VAR = 1 To 11
("CBX" & VAR).Object.Value = True