Automatisation tableau structurés sur tous les onglets d'un classeur

Bonjour a tous
J'ai un classeur qui contient un tableau par feuille.
J'aimerais transformer tous ces tableau en tableau structurés (sauf le premier onglet qui lui sera une synthese de tous ces tableaux structurés) .
Tous ces tableaux sont de tailles différentes .
Je pense que je dois passer par une sélection de cellule contigûes et aller jusqu'à la dernière ligne

Pour la selection de tous les onglets je passe par cette macro.

Code:

---

1 2 3 4 5 6 7

Sub MacroSelection() Sheets(1).Select For s=2 To Sheets.Count Sheets(s).Select False Next s End sub

---

C'est tout bete mais je bloque sur ceci . quelqu'un peux t'il m'aider?

Merci

Bonjour

Style et Nommage à adapter. A noter que si le nom de feuille comporte des caractères interdis dans les noms (espaces notamment) cela ne peut fonctionner en l'état

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Plage2Tableau() For Each Feuille In ThisWorkbook.Worksheets With Feuille If .ListObjects.Count = 0 And .Name <> "Synthese" Then .ListObjects.Add(xlSrcRange, .Range("A10").CurrentRegion, , xlYes).Name = "T_" & .Name .ListObjects("T_" & .Name).TableStyle = "TableStyleLight9" End If End With Next End Sub

---

Bonjour, 78chris
c'est génial
ca marche .
Je met en résolu