Microsoft 365 Code pour Excel pour cocher/décocher les cases d'une même colonne

Sub Cocher_TOUT()
'coche les  CheckBox (=> BO Formulaire )
Application.ScreenUpdating = False
Cochez True
End Sub
Sub Décocher_TOUT()
'décoche les  CheckBox (=> BO Formulaire )
Application.ScreenUpdating = False
Cochez False
End Sub

Private Sub Cochez(statut As Boolean)
Dim chk As CheckBox
With ActiveSheet
For Each chk In ActiveSheet.CheckBoxes
chk.Value = chk.TopLeftCell.Column = 5 = statut
Next chk
End With
End Sub

Sub Cochez_CHK_Selon_Colonne()
Dim chk As CheckBox
For Each chk In ActiveSheet.CheckBoxes
If chk.TopLeftCell.Column = _
        ActiveSheet.CheckBoxes(Application.Caller).TopLeftCell.Column Then chk.Value = _
        ActiveSheet.CheckBoxes(Application.Caller).Value
Next chk
End Sub

Sub a()
For Each o In ActiveSheet.OLEObjects
    If TypeName(o.Object) = "CheckBox" Then MsgBox o.TopLeftCell.Column
Next

Private Sub CheckBox1_Change() 'nom à adapter pour chaque colonne, 1ère CheckBox de la colonne
Dim v As Boolean, col%, o As OLEObject
v = CheckBox1 'nom à adapter
col = CheckBox1.TopLeftCell.Column 'nom à adapter
For Each o In OLEObjects
    If TypeName(o.Object) = "CheckBox" Then If o.TopLeftCell.Column = col Then o.Object = v
Next
End Sub

Sub Cocher_TOUT()
'coche les CheckBox (ActiveX)
Application.ScreenUpdating = False
Cochez True
End Sub
Sub Décocher_TOUT()
'décoche les CheckBox (ActiveX)
Application.ScreenUpdating = False
Cochez False
End Sub

Private Sub Cochez(statut As Boolean)
Dim c As Object
With ActiveSheet
    For Each c In .OLEObjects
    If TypeName(c.Object) = "CheckBox" Then
    If c.TopLeftCell.Column = 3 Then
    c.Object.Value = statut
    End If
    End If
    Next c
End With
End Sub