Validation des données USERFORM

Option Explicit

Dim TableMesCheckbox() As New class_MesChekBox

Private Sub UserForm_Initialize()
Dim ctrl As Control, i As Long
  For i = 100 To 129
    Set ctrl = Me.Controls("CheckBox" & i)
    ReDim Preserve TableMesCheckbox(1 To i)
    Set TableMesCheckbox(i).CheckBoxEvents = ctrl
  Next i
End Sub

Option Explicit

Public WithEvents CheckBoxEvents As msforms.CheckBox

Private Sub CheckBoxEvents_click()
Dim i As Long, j As Long, i0 As Long

If CheckBoxEvents.Value Then
  i0 = Right(CheckBoxEvents.Name, 3)
  Select Case i0 Mod 3
    Case 0
      i = i0 - 2: j = i0 - 1
    Case 1
      i = i0 + 1: j = i0 + 2
    Case 2
      i = i0 - 1: j = i0 + 1
  End Select
  COTATION_PN.Controls("CheckBox" & i).Value = False
  COTATION_PN.Controls("CheckBox" & j).Value = False
End If
End Sub