Microsoft 365 Problème boutons Supprimer et Ajouter

[ERN]

Bonjour,

Après de multiples sollicitations pour la création de mon formulaire, j'arrive au bout mais je remarque quelques incohérences qui sont surement toutes bêtes, mais je ne m'y retrouve plus.
En effet, quand je clique sur mon bouton "Ajouter" celui-ci écrase une ligne existante au lieu d'en ajouter une.
Ensuite mon bouton "Supprimer" efface bien certaines lignes sauf quand je souhaite effacer la première de mon tableau. là, c'est mon entête qui disparait.

Pourriez-vous me guider dans la résolution des ces problèmes. Je vous joins mon fichier.

Cordialement,

 

[kingfadhel]

Bonsoir le forum,
@ERN

Pour l'ajout change ligne = Sheets("Bdd").[a1].End(xldown).Row + 1
par : ligne = Sheets("Bdd").[a10000].End(xlUp).Row + 1

et pour la suppression remplace: Sheets("Bdd").Rows(ListBox1.ListIndex + 2).Delete
par: Sheets("Bdd").Rows(ListBox1.ListIndex + 3).Delete

 

[ERN]

Merci kingfadhel,
Mon problème est réglé . Par contre je remarque que mes deux textbox de prix sont défaillante.
En effet, quand je rentre une somme manuellement, seul le premier chiffre se met en forme avec le symbole Euros et les autres chiffres ne sont pas pris en compte. Auriez-vous une idée du problème ?