Sub touteLaCol()
Dim MonTabStruc As ListObject, monRangeColonneNom As Range
Set MonTabStruc = Range("a1").ListObject 'tableau structuré comprenant la cellule A1
Set monRangeColonneNom = MonTabStruc.ListColumns("Nom").Range 'range de toute la colonne "Nom"
monRangeColonneNom.Select
End Sub
Sub queLesDonnes()
Dim MonTabStruc As ListObject, monRangeColonneNom As Range
Set MonTabStruc = Range("a1").ListObject 'tableau structuré comprenant la cellule A1
Set monRangeColonneNom = MonTabStruc.ListColumns("Nom").DataBodyRange 'range de toute la colonne "Nom" sauf l'en-tête
monRangeColonneNom.Select
End Sub