Salut,
A mettre dans ton module "boite à outils" ou Fonction ou autre chacun le nomme comme il veux mais tout le mond doit avoir un module avec ses fonctions personnelles Donc petit code De Pierre Fauconnier que tu pourras utiliser avec n'importe quel tableau, tu lui donnes le nom du tableau et ensuite le Array des valeurs à écrire dans le tableau sans te soucier où sont les colonnes. Position tu le renseignes si tu veux c'est la position de la ligne dans le tableau.
Sub AddRow(TableName, Values, Optional Position As Long)
Dim r As ListRow
Dim l As ListObject
Dim i As Long
Set l = Range(TableName).ListObject
If Position = 0 Or Position > l.ListRows.Count Then Position = l.ListRows.Count + 1
Set r = l.ListRows.Add(Position)
For i = LBound(Values) To UBound(Values) Step 2
r.Range(l.ListColumns(Values(i)).Index).Value = Values(i + 1)
Next
Set r = Nothing
Set l = Nothing
End Sub
'// Appel de la procédure
'AddRow "t_Personnel", VBA.Array("Prénom", "Jean", "Nom", "Aymar", "DN", DateSerial(1967, 12, 14), "Actif", True, "Salaire", 123.45)
'//OU
'AddRow "t_Personnel", VBA.Array("Prénom", "Jean", "Nom", "Aymar", "DN", DateSerial(1967, 12, 14), "Actif", True, "Salaire", 123.45), 1
ah oui dernière petite remarque, il faut bien sur avoir un tableau structuré sur une Feuille.