Sub test_LO_BIS()
Dim LO As ListObject, tb, t(), F As Worksheet, x As Range, i%
Set LO = ActiveSheet.ListObjects(1): Set F = Worksheets("Feuil3")
tb = Array("Nom Feuille: " & LO.Parent.Name, "Nom Tableau: " & LO.Name, "Plage Cellules: " & LO.DataBodyRange.Address, _
"NB Colonnes: " & LO.ListColumns.Count & " | NB Lignes: " & LO.ListRows.Count, "Style du tableau: " & LO.TableStyle)
F.Range("A1:A5") = Application.Transpose(tb)
ReDim t(LO.ListColumns.Count)
For i = 1 To LO.ListColumns.Count
Set x = LO.HeaderRowRange.Item(i)
t(i) = "Lettre Colonne: " & Left(x.Address(0, 0), 1) & "| Nom Champ: " & x & " | Format Colonne " & i & ": " & LO.ListColumns(i).DataBodyRange.NumberFormatLocal
Next
F.Cells(7, "A").Resize(UBound(t)) = Application.Transpose(t)
With F.Cells(1).CurrentRegion
.Borders.Value = 1
.Columns.AutoFit
End With
End Sub