Erreur d'exécution 424 "Objet Requis"

Bonjour,

Je reviens vers vous avec un petit souci. J'ai un tableau contenant deux colonnes. J'ai un Userform avec une ComboBox et une TextBox

L'idée est qu'il s'affiche dans la TextBox le contenu de la seconde colonne quand le contenu de la ComboBox est choisi dans la liste correspondant à la première colonne.

Voici mon code :

'Pour le formulaire
Private Sub UserForm_Initialize()
'Feuil3.Unprotect "wsdeadx8"
Dim J As Long
    Dim I As Integer

    Set Ws = Sheets("JANVIER") 'Correspond au nom de votre onglet dans le fichier Excel
    With Me.ComboBox1
        For J = 2 To Ws.Range("A" & Rows.Count).End(xlUp).Row
            .AddItem Ws.Range("A" & J)
        Next J
    End With
    For I = 1 To 1
        Me.Controls("TextBox" & I).Visible = True
    Next I
'Feuil3.Protect "wsdeadx8"
End Sub

'Pour la liste déroulante Code client
Private Sub ComboBox1_Change()
Feuil3.Unprotect "wsdeadx8"
    Dim Ligne As Long
    Dim I As Integer

    If Me.ComboBox1.ListIndex = -1 Then Exit Sub
    Ligne = Me.ComboBox1.ListIndex + 2
For I = 1 To 1
        Me.Controls("TextBox" & I) = Ws.Cells(Ligne, I + 1)
    Next I
Feuil3.Protect "wsdeadx8"
End Sub

Sur mon erreur de débogage, cette ligne est toujours mise en jaune, mais je ne comprend pas pourquoi :

Me.Controls("TextBox" & I) = Ws.Cells(Ligne, I + 1)

Je précise que j'ai un autre Userform avec 7 TextBox (donc For I = 1 To 7) et un tableau plus grand que deux colonnes et que cette même ligne ne me pose pas de souci. Alors je comprend plus, si quelqu'un à la solution, je suis preneur.

Merci




EDIT : Ajout des balises de code