Erreurs de compilation

Bonjour,

Débutant V B A

je une formule qui me fait montre chaque foi l'erreur de compilation variable non définie ; il ma mi le bande jaune sur Private Sub Userform_initialize ; et voila le code ;



Option Explicit
Dim Ws As Worksheet

'Pour le formulaire
Private Sub Userform_Initialize()
Dim J As Long
Dim I As Integer

ComboBox2.ColumnCount = 1 'pour la liste déroulante civilité
ComboBox2.List() = Array("", "M.", "Mme", "Mlle")
Set Ws = Sheets("clients") 'Correspond au nom de votre onglet dens le fichier Excel
With Me.ComboBox1
For J = 2 To Ws.Range("A" & Rows.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

Merci ... pour m'aider