VBA ajouter des données dans une table

Bonjour
J'ai créée une table Excel appelée TbNir.
Je voudrais ajouter une ligne de données à la fin de ma table
J'ai utilisé le code svt :

Code:

---

1 2	'On crée une new entrée dans Accueil TbNir Sheets("Mod RDC").ListObjects("TbNir").ListRows(Range("tbnir").Rows.Count + 1).Range.Select

---

et je reçois le message d'erreur d'exécution "9" l'indice n'appartient pas la sélection, or ListRows(Range("tbnir").Rows.Count) me donne bien le nb de lignes de données de ma table.
est-ce que quelqu'un peut m'aider svp ? Merci

Bonjour,

il faut redimensionner ton tableau, sinon tu dépasses sa plage

il y a des tonnes de méthodes, voici celle qui est la plus proche de ton code initial

Code:

---

1 2 3 4

With Sheets("Feuil1").ListObjects("Tableau1") .ListRows.Add .ListRows(Range("Tableau1").Rows.Count).Range.Select End With

---

Bonsoir Joe
Merci beaucoup, ça va beaucoup mieux...
Résolu !