Sub b()
Dim cb As Shape, j&
Application.ScreenUpdating = False
j = 3
For Each cb In Sheet7.Shapes
If cb.Type = msoFormControl Then
If cb.FormControlType = xlCheckBox Then
If cb.TopLeftCell.Row = 11 Then
cb.OLEFormat.Object.Value = (Sheets("Données des produits").Cells(2, j) = "Y")
j = j + 1
End If
End If
End If
Next cb
Application.ScreenUpdating = True
End Sub