Bonjour,
Si j'ai bien compris, dans le module de votre feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, [A1]) Is Nothing Then
If [A1] = 0 Or [A1] = "" Then
For Each OBJ In ActiveSheet.OLEObjects
If TypeName(OBJ.Object) = "CheckBox" Then OBJ.Enabled = False
Next OBJ
Else
For Each OBJ In ActiveSheet.OLEObjects
If TypeName(OBJ.Object) = "CheckBox" Then OBJ.Enabled = True
Next OBJ
End If
End If
End Sub
Cdlt,