XL 2016 Erreur code vba

bonjour le forum j'ai une erreur dans le code vba j'ai besoin d'aide
j'aimerais aussi modifier sur userform le combobox1 ( numéro code barre) par une saisie manuelle car je vais le faire avec une douchette
pour l'ajout avec le bouton ( incrémenter automatiquement le numéro suivant dans A)
Merci de votre aide

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

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