Nombre d'arguments incorrects ou affectation de propriété incorr

'Pour Le Formulaire
Dim Ws As Worksheet



'Civilité
'***********************************************************************************************

Private Sub userform_initialize()

    ComboBox1.ColumnCount = 1
    ComboBox1.List() = Array("", "M.", "Mme.", "Mlle.")
    Set Ws = Sheets("Clients") 'Correspond au nom de l'onglet excel


End Sub

'***********************************************************************************************



'Pour le Bouton Nouveau client

Private Sub CommandButton1_Click()

    Dim L As Integer
    If MsgBox("Confirmez-vous l'inscription de ce nouveau client ?", vbYesNo, "Demande de confimation d'ajout") = vbYes Then
    L = Sheets("Clients").Range("A" & Rows.Count).End(xlUp).Row + 1 'Pour enregistrer les informations clients sur la dernière ligne
    Range("A" & L).Value = ComboBox1
    Range("B" & L).Value = txtnom
    Range("C" & L).Value = txtprenom
    Range("D" & L).Value = txtrace
    Range("E" & L).Value = txtcp
    Range("F" & L).Value = txtmail
    
    Dim J As Long
    Dim I As Integer
    
    ComboBox1.Clear
    Set Ws = Sheets("Clients")
    With Me.ComboBox1
    
    For J = 2 To Ws.Range("A" & Rows.Count).End(xlUp).Row
    .AddItem Ws.Range("A" & J)
    Next J
    
    For I = 1 To 8 'on lance une boucle de valeur mini 1 et maxi 8
    Me.Controls("txtnom", "txtprenom", "txtmail", "txttel", "txtcp", "txtrace" & I).Visible = True 'affiche les données dans les textbox
    Next I
    End With
    
    Else
    'Rien
    
    End If


End Sub


'Pour Quitter

Private Sub CommandButton2_Click()

    Unload Me
    

End Sub