Incrémenter une valeur dans une suite de nombre

Bonjour à toutes et à tous,

Voilà, j'ai un tableau de valeur dans la colonne D et je souhaite créer un userform qui me permette d'ajouter automatiquement une valeur lors du premier emplacement vide.
J'ai conçu un bout de code mais la valeur imputer à mon tableau me renvoie un message d'erreur et je ne sais pas trop pourquoi?

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub ajout_Click()   With Worksheets("start")   .Range("D8").End(xlDown).Offset(1, 0).Value = ajout.Value   End With   End Sub

---

Pour info, la valeur à rentrer dans le tableau se fait par le biais d'un textbox...

Quelqu'un peut-il me débeuguer????

Merci par avance

Que représente ce code :

Code:

---

ajout.Value

---

bonjour beast666 aalex_38 le forum
c'est peut être mieux de partir du bas vers le haut???

Code:

---

1 2 3

Private Sub ajout_Click() Sheets("start").Range("D65536").End(xlUp)(2) = TextBox1.Value End Sub

---