XL 2013 VBA Listobject

[Jam]

Bonjour à tous,

J'ai un tableau avec plusieurs colonnes.
Je veux parcourir toutes les lignes de ce tableau qui a une 20aine de colonnes et ne récupérer la valeur que de quelques colonnes.
J'utilise le bout de code suivant mais je bloque sur la façon de récupérer les données de chaque colonne:

Sub Test1()
Dim Tbl As ListObject
Dim x As Long
Dim a As String
Dim b As String
Dim c As String

Set Tbl = Feuil1.ListObjects(1)

With Tbl
    For x = 1 To .ListRows.Count
        a = .ListColumns("FacNumCompost").DataBodyRange.Value
        b = .ListColumns("FacRefFournisseur").DataBodyRange.Value
        c = .ListColumns("UniqueDesignationFournisseur").DataBodyRange.Value
    Next
End With
End Sub

Merci d'avance pour vos suggestions.

 

[Jam]

Bon, bah, j'ai trouvé comme un grand
Merci à ceux qui se seraient déjà penché sur une soluce (si vous avez plus rapide, je reste preneur).

Ca donne ça:

Sub Test1()
Dim Tbl As ListObject
Dim x As Long
Dim a As String
Dim b As String
Dim c As String

Set Tbl = Feuil1.ListObjects(1)

With Tbl
    For x = 2 To .ListRows.Count
        a = .Range(x, .ListColumns("FacNumCompost").Index)
        b = .Range(x, .ListColumns("FacRefFournisseur").Index)
        c = .Range(x, .ListColumns("UniqueDesignationFournisseur").Index)
    Next
End With
End Sub