Macro pour ajouter une personne dans ma base de données

Bonjour chers tous je ne suis pas un expert en réalisation de macro, mais je suis confronté à un problème auquel je suis confus.
d'abord j'ai crée un bouton macro sur mon formulaire qui me permet d'ajouter chaque nouvelle personne intégrée dans ma base de données. À chaque fois quand il y a une nouvelle personne que je dois ajouter dans ma base, la macro ne s'exécute pas. Il y a un message qui s'affiche erreur d'exécution '1004'.
Par la suite le second message s'affiche le mot de paste de la classe Worksheet a échoué. Je ne comprends pas comment faire ?
j'ai besoin d'aide.

bonjour. En prime à bord, il n'est pas très aisé d'ouvrir des fichiers au premier post. pouvez vous poster le code?
votre tableau est il un tableau structuré?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub ajouter()   Dim i% If TextBox1 <> "" Then Sheets("BD").ListObjects("Tableau1").ListRows.Add i = Sheets("DB").Range("A" & Rows.Count).End(xlUp).Row With Sheets("BD") .Range("A" & i) = TextBox1 .Range("B" & i) = TextBox2 End With End If   End Sub

---

essaie avec ce code

Bonjour Mr l'Ashanti ,
*Je viens de voir la reponse*a*mon mail hier , franchement* en toute sincerite*comment inserer la formule dans mon macro pour que cela .*J'ai des difficultés d'inserer*,si vous pouvez le faire pour moi ou bien montrer moi la procedure d'insertion pour la macro marche.Hier je vous ai envoyé le fichier jont.

essaie ce domaine

Citation:

---

Envoyé par Mr l'Ashanti

essaie ce domaine

---

Bonsoir Mr l'Ashanti
Merci pour l'assisstance , sa marche parfaitement.

n'oublie pas de cliquer sur résolu

bonsoir,