XL 2019 Formule VLOOK dans un Userform

Private Sub CommandButton1_Click()
    'code de transfer de donnees du formulaire vers le journal avec un total de 30 Textbox
    Dim DerLigne&, i&, c&
    DerLigne = Sheets("Ledger").Range("A" & Rows.Count).End(xlUp).Row + 1
    If Application.WorksheetFunction.CountIf(Sheets("Ledger").Range("A1:A" & DerLigne), ComboBox1_mois.Value & "-" & TextBox1.Value) = 0 Then
        If MsgBox("Confirma a adição de dados?", vbYesNo, "confirmation") = vbYes Then
            With Sheets("Ledger")
                'vérifie si toutes les textbox sont remplies
                For i = 1 To 30
                    If Controls("Textbox" & i) = "" Then
                        MsgBox "Por favor preencha todos os campos antes de validar"
                        Exit Sub
                    End If
                Next i
                'vérifie si toutes les combbox sont remplies
                For i = 31 To 32
                    If Controls("Combobox" & i) = "" Then
                        MsgBox "Por favor preencha todos os campos antes de validar"
                        Exit Sub
                    End If
                Next i
                'Remplissage
                .Cells(DerLigne, 2) = ComboBox1_mois.Value
                For i = 1 To 30
                    .Cells(DerLigne, i + 2) = Controls("textbox" & i)
                Next
                For c = 31 To 35
                    .Cells(DerLigne, c + 2) = Controls("ComboBox" & c)
                Next
            End With
         End If
    Else
        MsgBox "A referência ""mês - código escolar"" já existe"
    End If
    
    Unload Me
    End Sub

Private Sub TextBox2_Change() 'Vérifie si la textbox est bien au format texte
    If IsNumeric(TextBox2.Value) Then
        MsgBox "Por favor introduza um valor em formato de texto"
        Exit Sub
    End If
End Sub

Private Sub TextBox26_Change() 'Vérifie si la textbox est bien au format numérique
    If Not IsNumeric(TextBox26.Value) Then
        MsgBox "Por favor introduza um valor numérico"
        Exit Sub
    End If
End Sub