XL 2016 CheckBox et OptionButon

Sub Affichage()
'   Application.ScreenUpdating = False
'   For I = 1 To Sheets.Count
'        Sheets(I).Unprotect
'   Next
    UserFormTransport.Show
    Application.GoTo reference:=Sheets("Commande").Range("A1"), Scroll:=True
End Sub

Private Sub UserForm_Initialize()
Dim Collec As New Collection
Dim Itm As Long
' je charge des différents déroulants de leurs items
With Sheets("Menus")
    For Each Cell In .Range("AD2:AD" & .Range("AD10").End(xlUp).Row)
        Me.ComboBoxCivilité.AddItem (Cell)
    Next
    For Each Cell In .Range("AA2:AA" & .Range("AA100").End(xlUp).Row)
        Me.ComboHeureDépart.AddItem (Cell.Text)
        Me.ComboHeureArrivée.AddItem (Cell.Text)
    Next
    For Each Cell In .Range("A2:A" & .Range("A1000").End(xlUp).Row)
        If .Range("A2") <> "" Then
        Me.ComboEtablissementArrivée.AddItem (Cell)
        End If
    Next
    For Each Cell In .Range("B2:B" & .Range("B1000").End(xlUp).Row)
        Me.ComboServiceArrivée.AddItem (Cell)
        Me.ComboServiceDépart.AddItem (Cell)
    Next
    For Each Cell In .Range("AB2:AB" & .Range("AB10").End(xlUp).Row)
        Me.ComboTps.AddItem (Cell)
    Next
    For Each Cell In .Range("AC2:AC" & .Range("AC10").End(xlUp).Row)
        Me.CboBoxPayeur.AddItem (Cell)
    Next
End With
' particularité du combo nom (pour eviter les doublons)
With Sheets("BD patients")
    If .Range("B3") <> "" Then
        ' j'aliment une collection
        For Each Cell In .Range("B3:B" & .Range("B10000").End(xlUp).Row)
            On Error Resume Next
            Collec.Add Cell, CStr(Cell)
            On Error GoTo 0
        Next
        'J'aliment la combo à partir des items de la collection
        For Itm = 1 To Collec.Count
            Me.ComboNom.AddItem Collec.Item(Itm)
        Next
    End If
End With
End Sub

Private Sub UserForm_Activate()
Dim I As Byte
Set MonLabel = Controls.Add("Forms.Label.1", , True)
With MonLabel
     .Caption = Right(ActiveWorkbook.Names("Auteur"), Len(ActiveWorkbook.Names("Auteur")) - 1)
    .Top = 565
    .Left = 300
    .Height = 8.4
    .Width = 100
     MemNom = True
    .Font.Bold = True
   .Font.Italic = True
   .Font.Size = 6
End With

' gestion de l'affichage de l'userform en mode " expansion"
Me.Top = Application.Top + (Application.Height / 2 - Me.Height / 2)
Me.Left = Application.Left + (Application.Width / 2 - Me.Width / 2)
MémoireHauteur = Me.Height
MemoireLargeur = Me.Width
PasHauteur = (Me.Height - 27) / 80
PasLargeur = (Me.Width - 93) / 80
Me.Height = 27
Me.Width = 93
For I = 0 To 150
If Me.Height > MémoireHauteur Then
Exit For
End If
Me.Height = Me.Height + PasHauteur
Me.Width = Me.Width + PasLargeur
' Utilisation de l'api Windows
'   Sleep (5)
Next
Me.Height = MémoireHauteur
Me.Width = MemoireLargeur
End Sub