Problème Macro Excel

Bonjour,

Je viens vers vous pour avoir votre aide et comprendre mon erreur.
Depuis hier je me suis lancer dans les macros Excel, sans aucunes connaissances ...
Déjà ce que je peux dire c'est que c'est compliqué...
Malgré mes difficultés, j'aimerais réaliser un tableau excel pour faire mes comptes avec un bouton (contrôle de formulaire), qui me permettrait d'accéder à une boite de dialogue.



Dans cette boite de dialogue, il suffirais de remplir le formulaire et de valider, et cela remplirais la première ligne du tableau non remplie.
Cependant, lorsque je clique sur Valider un message d'erreur apparaît:

"Erreur d'éxecution '424':
Objet requis"



Je ne vois pas du tout pourquoi ...

Je vous colle ici le code correspondant:

Private Sub Annuler_Click()
Unload Me
End Sub

Private Sub Userform_Initialize()
With DebitouCredit
.AddItem "Crédit"
.AddItem "Débit"
End With
With Chequecode
.AddItem "CB"
.AddItem "RETRAIT"
.AddItem "PRELEVEMENT"
.AddItem "VIREMENT"
End With
With Transaction
.AddItem "Assurance"
.AddItem "Charges locatives"
.AddItem "Courses"
.AddItem "Divers"
.AddItem "Eau"
.AddItem "Electricité"
.AddItem "Epargnes"
.AddItem "Essence"
.AddItem "Frais bancaire"
.AddItem "Impôts"
.AddItem "Loyer"
.AddItem "Prêt automobile"
.AddItem "Prêt étudiant"
.AddItem "Prêt Immobilier"
.AddItem "Prêt personelle"
.AddItem "Retrait"
.AddItem "Salaire"
.AddItem "Santé"
.AddItem "Téléphone fix/Internet"
.AddItem "Téléphone Mobile"
.AddItem "Transports"
.AddItem "Virements"
End With
End Sub
Private Sub Valider_Click()

code.ForeColor = RGB(0, 0, 0)
datee.ForeColor = RGB(0, 0, 0)
transac.ForeColor = RGB(0, 0, 0)
descript.ForeColor = RGB(0, 0, 0)
sommee.ForeColor = RGB(0, 0, 0)
debitcredit.ForeColor = RGB(0, 0, 0)

If TextBox_DateLabel.Value = "" Then
datee.ForeColor = RGB(255, 0, 0)
ElseIf ComboBox_Chequecode.Value = "" Then
code.ForeColor = RGB(255, 0, 0)
ElseIf ComboBox_Transaction.Value = "" Then
transac.ForeColor = RGB(255, 0, 0)
ElseIf TextBox_Description.Value = "" Then
descript.ForeColor = RGB(255, 0, 0)
ElseIf TextBox_Somme.Value = "" Then
sommmee.ForeColor = RGB(255, 0, 0)
ElseIf ComboBox_DebitouCredit.Value = "" Then
debitcredit.ForeColor = RGB(255, 0, 0)

Else
Dim no_ligne As Integer

no_ligne = Range("B98").End(xlUp).Row + 1

Cells(no_ligne, 1) = ComboBox_Chequecode.Value
Cells(no_ligne, 2) = TextBox_DateLabel.Value
Cells(no_ligne, 3) = ComboBox_Transaction.Value
Cells(no_ligne, 4) = TextBox_Description.Value
If ComboBox_DebitouCredit.Value = "Débit" Then
Cells(no_ligne, 5) = TextBox_Somme.Value
End If
If ComboBox_DebitouCredit.Value = "Crédit" Then
Cells(no_ligne, 6) = TextBox_Somme.Value
End If

ComboBox_DebitouCredit.Value = ""
ComboBox_Chequecode.Value = ""
TextBox_DateLabel.Value = ""
ComboBox_Transaction.Value = ""
TextBox_Description.Value = ""
TextBox_Somme.Value = ""
End If

End Sub

Merci d'avance pour votre aide !