Dim datas, plV As Range, c As Range
datas = ActiveSheet.ListObjects("Tableau1").DataBodyRange.Value
Set plV = ActiveSheet.ListObjects("Tableau1").DataBodyRange.Columns(1).SpecialCells(xlCellTypeVisible)
For Each c In plV
Debug.Print datas(c.Row - plV.Row + 1, 1) ' lignes visibles de DataBodyRange (champ 1)
Next c