XL 2021 numérotation CheckBox

Sub reliste()
    If Range("ListAdherents").Cells(2) <> "" Then
        If Range("ListAdherents").Rows.Count = 1 Then
            Adhérents.Column = Application.Transpose(Range("ListAdherents").Resize(, 2))
        Else
' -------- Bug 1 -------------------
            Adhérents.List = Range("ListAdherents").Columns("B:C").Value
'            Erreur d'exécution 70 => permission refusée
' ----------------------------------
        End If
    End If
End Sub

Sub listesport()
    Dim C&
    With Listsport
        .Clear
        For C = 15 To Range("ListAdherents").Columns.Count - 2
            .AddItem Range("ListAdherents[#headerS]").Cells(C)
        Next
    End With
End Sub

Sub listesport()
    Dim C&
    With Listsport
        .Clear
        For C = 15 To Range("ListAdherents").Columns.Count - 2
            .AddItem Range("ListAdherents[#headerS]").Cells(C)
            .List(.ListCount - 1, 1) = C
        Next
    End With
End Sub

Private Sub TextBox6_Exit(ByVal cancel As MSForms.ReturnBoolean)
    If Not TextBox6 Like "[0][6-7][ ][0-9][0-9][ ][0-9][0-9][ ][0-9][0-9][ ][0-9][0-9]" Or TextBox6 Like "__ __ __ __ __" Then
        If Me.TextBox6.Text <> "" Then
            cancel = True
            MsgBox "Numéro Mobile non valide" & Chr(10) & " " & Chr(10) & "Saisir un n° à 10 chiffres commençant par" & Chr(10) & " " & Chr(10) & "   " & "'06'   ou   '07'"
            With TextBox6
                .SetFocus
                .SelStart = 0
                .SelLength = Len(TextBox6.Text)
            End With
            Exit Sub
        End If
    End If
End Sub

Private Sub TextBox7_Enter()
    If TextBox7 Like "[0][0-9][ ][0-9][0-9][ ][0-9][0-9][ ][0-9][0-9][ ][0-9][0-9]" Then GoTo 2
    Masque2 = "__ __ __ __ __"
    With TextBox7
        .Text = Masque2
        .SelStart = 0
        .SelLength = 0
2:         End With
End Sub

Sub listesport()
    Dim C&
    With Listsport
        .Clear
        For C = 15 To Range("ListAdherents").Columns.Count - 2
            .AddItem Range("ListAdherents[#headerS]").Cells(C)
            [B][COLOR=rgb(41, 105, 176)][I].List(.ListCount - 1, 1) = C[/I][/COLOR][/B]
        Next
    End With
End Sub