Problème de vba

Private Sub userForm_Initialize()
Dim J As Long
     Dim I As Integer
 Dim ws As String
 
 ComboBox2.ColumnCount = 1 'pour la liste déroulante civilité
 ComboBox2.List() = Array("", "Mr", "Melle", "dme")
 Set ws = Sheets("clients") 'correspond au nom de l'onglet clients
 With Me.ComboBox1
    For J = 2 To ws.Range("A" & Row.Count).End(x1up).Row
       AddItem ws.Range("A" & J)
    Next J
End With
For I = 1 To 7
    Me.Controls("textbox" & I).Visible = True
  Next I
 End Sub