Souci liste excel erreur 424

Bonjour a tous,

Je vous explique mon souci, je suis entrain d'essayer de faire un listing client pour le boulot (vu que notre boss ne veut pas investir dans un programme spécialisé ect) , j'ai donc suivi un tuto sur le net, pour créer ma liste, et le formulaire a remplir.
Voici le code que j'ai pour le moment:

Private Sub cdeAJOUTER_Click()

Dim numLigneVide As Integer
 'on active la feuille "liste"
 Worksheets("Liste").Activate
 'on trouve la derniere ligne vide du tableau et on enregistre le numero de la ligne dans la variable numLigneVide
numLigneVide = ActiveSheet.Columns(1).Find("").Row
'on verifie que les champs obligatories sont correctement remplis
If Txtnom.Text = "" Then
MsgBox "Veuillez remplir le nom de votre contact", vbCritical, "Champs manquant"
Txtnom.SetFocus
ElseIf Txtprenom.Text = "" Then
MsgBox "Veuillez remplir le prenom de votre contact", vbCritical, "Champs manquant"
Txtprenom.SetFocus
Else
'On remplit les données dans notre liste
ActiveSheet.Cells(numLigneVide, 1) = UCase(Txtnom.Text)
ActiveSheet.Cells(numLigneVide, 2) = UCase(Txtprenom.Text)
ActiveSheet.Cells(numLigneVide, 3) = Txtrue.Text
ActiveSheet.Cells(numLigneVide, 4) = Txtville.Text
ActiveSheet.Cells(numLigneVide, 5) = TxtTva.Text      '<=============
ActiveSheet.Cells(numLigneVide, 6) = Txttel1.Text
ActiveSheet.Cells(numLigneVide, 7) = Txttel2.Text
ActiveSheet.Cells(numLigneVide, 8) = Txtemail.Text

'on efface le formulaire et on replace le curseur  sur le premier champs (nom)
Txtnom.Text = ""
Txtprenom.Text = ""
Txtrue.Text = ""
Txtville.Text = ""
TxtTva.Text = ""
Txttel1.Text = ""
Txttel2.Text = ""
Txtemail.Text = ""
Txtnom.SetFocus



End If

End Sub

Private Sub cdequitter_Click()
    FrmNouveau.Hide
End Sub

Private Sub TextnumTVA_Change()

End Sub

Mon souci vient de la ligne ou il y a le <==== , quand je rempli le formulaire, j'ai un message qui dit: erreur exécution 424 objet requis, donc tous les infos s’intègrent bien dans ma liste, sauf cette ligne... et je ne comprend pas du tout pq...

Est ce que quelqu'un a une idée????

Merci d'avance