Sub tableSheetForEach()
Dim sh As Worksheet
Set sh = ThisWorkbook.Worksheets("Feuil1")
' Pour 1 Tableau structuré sur une Feuille Excel/
Dim TabTyp As ListObjects
Set TabTyp = sh.ListObjects
MsgBox TabTyp.Count & " Nb de tableaux structurer sur la Feuille"
Dim Tableau1 As ListObject
Set Tableau1 = TabTyp.Item("Tableau1")
Tableau1.Range.Select
MsgBox Tableau1.Range.Address & " Adresse"
MsgBox Tableau1.Name
MsgBox Tableau1.ListColumns.Count & " Colonnes"
MsgBox Tableau1.ListRows.Count & " Lignes"
MsgBox Tableau1.Range(1, 3) & " En-tête = Credit"
MsgBox Tableau1.HeaderRowRange(3) & " En-tête = Credit"
Tableau1.Range.Rows(1).Select
Tableau1.Range.Rows(2).Select
Tableau1.Range.Rows(3).Select
Tableau1.Range(1, 3).Select
' Ecriture
'.................
Tex = Tableau1.Range(1, 3).Value
Tableau1.Range(1, 3).Value = "ToTo"
Tableau1.Range(1, 3).Value = Tex
End sub