Creation formulaire de saisi en excel

Bonjour,

J'ai crée ma propre formulaire,et ça marche mai j'ai coincé à saisir de nombre, j'ai demande d'aide à quelqu'un et il m'a donné de code supplémentaire,quand j'ai inseré cette code, elle oriente vers la couleur jaune,et quand je clique cet couleur il mentionne ce message "Variable objet ou variable de block with non definie" Aide_moi s'il te plait; Voici mes codes

Option Explicit
Dim Ws As Worksheet

'Variable objet ou variable de block with non definie

'Pour le formulaire
Private  Sub UserForm1_Initialize()
    Dim J As Long
    Dim I As Integer
    
    ComboBox1.ColumnCount = 1 'Pour la liste d?roulante Civilit?
    
  
    
    Set Ws = Worksheets("JC OCT 2016") 'Correspond au nom de votre onglet dans le fichier Excel
    With Me.ComboBox1
        For J = 1 To Ws.Range("A" & Rows.Count).End(xlUp).Row
            .AddItem Ws.Range("A" & J)
        Next J
    End With
    For I = 1 To 6
        Me.Controls("TextBox" & I).Visible = True
    Next I
End Sub

'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
    ComboBox1 = Ws.Cells(Ligne, "A")
    For I = 1 To 6
        Me.Controls("TextBox" & I) = Ws.Cells(Ligne, I + 2)
    Next I
End Sub

'Pour le bouton Nouveau contact

Private Sub CommandButton1_Click()
Dim L As Integer
If MsgBox("Etes­vous certain de vouloir INSERER ce nouveau contact ?", vbYesNo, "Demande de confirmation") = vbYes Then 'condition : si oui au message
L = Sheets("JC OCT 2016").Range("a65536").End(xlUp).Row + 1 ' Permet de se positionner sur la dernière ligne de tableau NON VIDE
Range("A" & L).Value = ComboBox1 'Insère la donnée de la liste déroulante dans la colonne A
Range("B" & L).Value = TextBox1 ' Insère la donnée de la textbox1 dans la colonne B  'et à suivre....
Range("C" & L).Value = TextBox2
Range("D" & L).Value = TextBox3
Range("E" & L).Value = TextBox4
Range("F" & L).Value = TextBox5


End If
'Code permettant de modifier le format de la plage de cellule en format nombre
 With Ws.Range("D3:E100")
     .NumberFormat = "0"
     .Value = .Value
End With
' Affiche une boîte de message MsgBox ("Produit inséré dans fichier sélectionné") 'Vous informant que le présent contact est insérer dans votre tableau Excel.

End Sub

'Pour le bouton Modifier
Private Sub CommandButton2_Click()
    Dim Ligne As Long
    Dim I As Integer
    
    If MsgBox("Confirmez-vous la modification de ce contact ?", vbYesNo, "Demande de confirmation de modification") = vbYes Then
        If Me.ComboBox1.ListIndex = -1 Then Exit Sub
        Ligne = Me.ComboBox1.ListIndex + 2
        Ws.Cells(Ligne, "A") = ComboBox1
        For I = 1 To 8
            If Me.Controls("TextBox" & I).Visible = True Then
                Ws.Cells(Ligne, I + 2) = Me.Controls("TextBox" & I)
            End If
        Next I
    End If

End Sub

'Pour le bouton Quitter
Private Sub CommandButton3_Click()
    Unload Me
End Sub

EDIT : Ajout des balises de code (la coloration syntaxique). Explications disponibles ici :ICI Merci d'y penser dans tes prochains messages.