Sub Tests()
Dim LO As ListObject
Set LO = ActiveSheet.ListObjects("Tableau1")
'a
LO.ListRows.Add.Range = Array(1, 2, 3, 4, 5) '(a) ok
'b
[Tableau1].Rows([Tableau1].Rows.Count + 1) = Array(5, 4, 3, 2, 1) '(b)=ok
'c
'[Tableau1].ListRows.Add.Range = Array(1, 2, 3, 4, 5) ' (c) Ne fonctionne pas
End Sub