Option Explicit
Sub ListTables()
Dim xTable As ListObject
Dim xSheet As Worksheet
Dim Lig As ListRow
For Each xSheet In Worksheets
xSheet.Activate
For Each xTable In xSheet.ListObjects
With xSheet.ListObjects(xTable.Name)
'ajouter ligne dans les différents tableaux
Set Lig = .ListRows.Add() 'ajout ligne vide en fin de tableau
'à compléter lignes ci-dessous et ajouter lignes de code pour chaque colonne
'Lig.Range.Cells(1).Value = ...
'Lig.Range.Cells(2).Value = ...
'Lig.Range.Cells(3).Value = ...
End With
Next xTable
Next
End Sub