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 : Sélectionner tout - Visualiser dans une fenêtre à part
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