Range de l'objet global a échoué

Bonjour

J'ai créer un userform pour saisir des commandes.
mon code bloc a la dernière ligne

Code:

---

1 2 3 4 5 6

Private Sub ENREGISTRER_Click() 'definir la variable lignes Dim ligne As Long ligne = Range("B3").End(xlDown).Row + 1 'incrementer le tableau avec les renseignements du userform Range("B" & ligne) = txtnom

---

Je vous met le fichier complet
Pièce jointe 327116
Pouvez vous m'aider?
Merci d'avance

Regarde le contenu de la variable "ligne" au moment du plantage.

bonjour

Code:

---

ligne = Range("B" & Rows.Count).End(xlUp).Row + 1

---