aide sur nombre stocker en forma texte (combobox)

Private Sub Bt1_Click()

    Dim lig&, i&, num
    If C2.ListIndex = -1 Then
        If Not Opt1 And Not Opt2 And Not Opt3 And Not Opt4 And Not Opt5 And Not Opt6 Then MsgBox "Vous devez choisir une classe", , "Choisir une Classe SVP": Exit Sub
        lig = Sheets(c23.Text).Range("B" & lign).End(xlUp).Row + 1
        
    Else
        lig = C2.List(C2.ListIndex, 22)
    End If
    With Sheets(c23.Text)
        For i = 2 To 22
            .Cells(lig, i) = Controls("C" & i)
        Next i
    End With
    Unload Me
    UserForm18.Show 0
End Sub