CheckBOX délimité le nbre de case coché

Private Function nbchexcoche()
Dim £i As Byte
Dim action2 As String
Dim £Ctrl As Control
£i = 0
For Each £Ctrl In Me.Controls
    If TypeName(£Ctrl) = "CheckBox" Then
       If £Ctrl.Value = True Then £i = £i + 1
    End If
Next £Ctrl
nbchexcoche = £i
End Function

'code à mettre pour les CheckBox
Private Sub CheckBox1_Click()
If nbchexcoche > 6 Then CheckBox1.Value = False
End Sub

Option Explicit
Private MesObjets() As New Classe1
Private Sub UserForm_Initialize()
Dim ctrl As Control, i As Byte
For Each ctrl In Me.Controls
    If TypeOf ctrl Is MSForms.CheckBox Then
        ReDim Preserve MesObjets(0 To i)
        Set MesObjets(i).monctrl = ctrl
        i = i + 1
    End If
Next ctrl
End Sub

Option Explicit
Public WithEvents monctrl As MSForms.CheckBox
Private Sub monctrl_Click()
Static b As Boolean
Dim ctrl As Control, c As Byte
If b = True Then Exit Sub
    If monctrl Then
        For Each ctrl In UserForm1.Controls
            If TypeOf ctrl Is MSForms.CheckBox And ctrl.Value = True Then c = c + 1
        Next ctrl
        If c > 6 Then
            b = True
            monctrl.Value = False
            b = False
        End If
    End If
End Sub

Option Explicit
Public WithEvents monctrl As MSForms.CheckBox
Private Sub monctrl_Click()
Static b As Boolean
Dim ctrl As Control, c As Byte
If b = True Then Exit Sub
    If monctrl Then
        For Each ctrl In UserForm1.Controls
            If TypeOf ctrl Is MSForms.CheckBox And ctrl.Value = True Then
                c = c + 1
                If c < 7 Then Cells(1, 10 + c).Value = ctrl.Caption
            End If
        Next ctrl
        If c > 6 Then
            b = True
            monctrl.Value = False
            b = False
        End If
    End If
End Sub