Bonjour,
Vos deux dernières lignes ne semblent pas faire parties du tableau structuré. Il vaut mieux travailler avec un objet ListRow.
Dans cet exemple le tableau n'a qu'une colonne :
Sub AjouterUneLigne()
Dim MaNouvelleLigne As ListRow
With Sheets("Source").ListObjects("t_Donnees")
Set MaNouvelleLigne = .ListRows.Add
With MaNouvelleLigne
.Range(1, 1) = WorksheetFunction.Max(Range("t_Donnees[ITEM]")) + 1
End With
Set MaNouvelleLigne = Nothing
End With
End Sub
Si plusieurs colonnes :
With MaNouvelleLigne
.Range(1, 1) = "..."
.Range(1, 2) = "..."
.Range(1, 3) = "..."
' etc...
End With