Erreur 424

Bonjour à tout le monde !

J'écris un script pour AJOUTER un client à une liste sous Excel. Voici le code:

Private Sub cmdAjouter_Click()
Dim numLigneVide As Integer
'On active la feuille "Réservations"
Worksheets("Réservations").Activate
'On trouve la dernière ligne vide du tableau et on enregistre le numéro de la ligne dans la variable numLigneVide
numLigneVide = ActiveSheet.Columns(1).Find("").Row
'On vérifie que les champs obligatoires sont correctement remplis
If txtTitre.Text = "" Then
MsgBox "Veuillez remplir le titre de votre client", vbCritical, "Champ manquant"
txtTitre.SetFocus
ElseIf txtPrenom.Text = "" Then
MsgBox "Veuillez remplir le prénom de votre client", vbCritical, "Champ manquant"
txtPrenom.SetFocus
Else
'On enregistre les données dans le tableau
ActiveSheet.Cells(numLigneVide, 1) = TextTitre.Text
ActiveSheet.Cells(numLigneVide, 2) = TextPrenom.Text
ActiveSheet.Cells(numLigneVide, 3) = TextNom.Text
ActiveSheet.Cells(numLigneVide, 4) = TextAdresse.Text
ActiveSheet.Cells(numLigneVide, 5) = TextNPA.Text
ActiveSheet.Cells(numLigneVide, 6) = TextLocalite.Text
ActiveSheet.Cells(numLigneVide, 7) = TextTelephone.Text
ActiveSheet.Cells(numLigneVide, 8) = TextAdultes.Text
ActiveSheet.Cells(numLigneVide, 9) = TextEnfants.Text
'On efface le formulaire et on replace le curseur sur le premier champ (Titre)
txtTitre.Text = ""
txtPrenom.Text = ""
txtNom.Text = ""
txtAdresse.Text = ""
txtNPA.Text = ""
txtLocalite.Text = ""
txtTelephone.Text = ""
txtAdultes.Text = ""
txtEnfants.Text = ""
txtTitre.SetFocus
End If
End Sub

Private Sub cmdFermer_Click()
frmNouveau.Hide
End Sub


Lorsque je clique sur la commande AJOUTER du formulaire, j'ai le message "Erreur d'exécution '424' Objet requis avec

If txtTitre.Text = "" Then en surbrillance.

La variable Titre existe, c'est un champ du formulaire et une colonne de la liste "Réservations".

Où se situe cette erreur ? Merci de votre réponse.