copier coller info userform vers checkbox

If Me.CB2.Value = "F.Def........" Then
UserForm2.CheckBox1 = True
End If

If Me.CB2.Value = "F........" Then
LecturePoint.CheckBox1 = 1
End If

Public Sub ColonneF(V As String, Ligne As Long)
Dim c As Control
For Each c In Me.Controls
    If TypeName(c) = "CheckBox" Then
        If c.Caption = V Then c.Value = True
    End If
Next Ctrl
Me.Show vbModal
End Sub

Public Sub ColonneF(V As String, Ligne As Long)
    Me.Tag = Ligne
    Dim T
    Dim I As Integer
    T = Split(V & "/", "/")
    For I = 0 To UBound(T)
        Select Case T(I)
        Case "F.Defe"
            CheckBox1.Value = 1
        Case "J.C. Desne"
            CheckBox2.Value = 1
        Case "F.Dewe"
            CheckBox3.Value = 1
        Case "O.Dinde"
            CheckBox4.Value = 1
        Case "S.Balde"
            CheckBox5.Value = 1
        Case "D.Mate"
            CheckBox6.Value = 1
        End Select
    Next
    Dim c As Control
For Each c In Me.Controls
    If TypeName(c) = "CheckBox" Then
        If c.Caption = V Then c.Value = True
    End If
Next
    mem = 0
    Me.Show vbModal
End Sub

Dim T
    Dim I As Integer
    T = Split(V & "/", "/")
    For I = 0 To UBound(T)
        Select Case T(I)
        Case "F.Defe"
            CheckBox1.Value = 1
        Case "J.C. Desne"
            CheckBox2.Value = 1
        Case "F.Dewe"
            CheckBox3.Value = 1
        Case "O.Dinde"
            CheckBox4.Value = 1
        Case "S.Balde"
            CheckBox5.Value = 1
        Case "D.Mate"
            CheckBox6.Value = 1
        End Select
    Next

Private Sub CB2_Click()
Dim c As Control
With LecturePoint
    For Each c In .Controls
        If TypeName(c) = "CheckBox" Then
            If c.Caption = CB2.Value Then c.Value = True Else c.Value = False
        End If
    Next c
    .Show 0
End With
Me.Hide
End Sub