XL 2016 problème de restitution valeur de cellule dans un ComboBox d'un UserForm

Dim lgn As Long  (en déclaration )

''dans la macro du commandbutton pour memoriser

lgn = ActiveCell.Row  'Formule magique


Feuil2.Cell(lgn, 1) = ComboBox1.Value 'pour CommandButton.Caption et pour Label.Caption

Feuil2.Cell(lgn, 2) = ComboBox2.Value


'et pour relire dans intialize

ComboBox1.Value = Feuil2.Cell(lgn, 1)

ComboBox2.Value = Feuil2.Cell(lgn, 2)

'--------------------------------OK pour memorise ComboBox
    For Each Ctrl In Me.Controls
        If TypeOf Ctrl Is MSForms.ComboBox Then
           Select Case Ctrl.Name
                  Case "ComboBox1"
                       cbval(0) = Ctrl.Object.Text
                  Case "ComboBox2"
                       cbval(1) = Ctrl.Object.Text
                  Case "ComboBox3"
                       cbval(2) = Ctrl.Object.Text
                  Case "ComboBox4"
                       cbval(3) = Ctrl.Object.Text
          End Select
        End If
    Next Ctrl
    Feuil2.Range("M" & lgn) = Join(cbval, ",")
    Unload Me

Private Sub UserForm_Initialize()

'-----------No Reset
CheckBoxReset1.Caption = False
CheckBoxReset2.Caption = False
' restitution pour CheckBox
    Dim Com, i%, y%, Ctrl As Control, cbval
    lgn = ActiveCell.Row
    Com = Split(", " & Feuil2.Range("B" & lgn), ", ")
    For i = 1 To UBound(Com)
        For Each Ctrl In Me.Controls
            If TypeOf Ctrl Is MSForms.CheckBox Then
                If Ctrl.Caption = Com(i) Then
                    Ctrl.Value = True: Exit For
                End If
            End If
        Next Ctrl
    Next i
    '--------------'restitution pour ComboBox

    lgn = ActiveCell.Row
    cbval = Split(Feuil2.Range("M" & lgn), ",")
    ComboBox1.Value = cbval(0)
    ComboBox2.Value = cbval(1)
    ComboBox3.Value = cbval(2)
    ComboBox4.Value = cbval(3)

End Sub