XL 2019 VBA Range().SpecialCells(xlCellTypeVisible).Rows

For Each Line In Range(TableName).SpecialCells(xlCellTypeVisible).Rows
    I = Line.Row
Next Line

Sub test()
    TableName = "Tableau1"
    For Each Line In Range(TableName).Rows
        If Line.Hidden = False Then
            I = Line.Row
' ce que tu veux en faire ici           
 'Debug.Print Line.Address(0, 0)' juste pour voir les address de ligne dans la console
        End If
    Next Line
End Sub

ListObjects("Tableau1").DataBodyRange.SpecialCells(xlCellTypeVisible).Copy

Sub Filtrer()
Dim Ws As Worksheet
Dim I As Long, J As Long
Dim Tabl As String, TableName As String
Dim SortList()
Dim c As Range

Tabl = "Feuil1"
TableName = "Tableau1"
SortList = Array("a", "b", "c")
Set Ws = Worksheets(Tabl)

Ws.ListObjects(TableName).Range.AutoFilter Field:=13, Criteria1:=SortList(), Operator:=xlFilterValues

J = Range(TableName).Columns(1).SpecialCells(xlCellTypeVisible).Count

For Each c In Range(TableName).Columns(1).SpecialCells(xlCellTypeVisible)
    I = c.Row
    MsgBox "Numéro de ligne : " & I 'pour tester
Next c

MsgBox "Nombre de lignes : " & J 'pour tester

End Sub

Sub Test()
Dim I, J As Integer

J = Range("Tableau").SpecialCells(xlCellTypeVisible).Rows.Count

For Each Line In Range("Tableau").SpecialCells(xlCellTypeVisible).Rows
    I = Line.Row
Next Line

End Sub

For Each c In Range(TableName).Columns(1).SpecialCells(xlCellTypeVisible)

For Each Line In Range(TableName).Rows
        If Line.Hidden = False Then
        '...
        end if 
next

Set visiblerang = Range("Tableau1").SpecialCells(xlCellTypeVisible)
For Each ro In visiblerang.Rows
'...
next

Sub test()
     For Each Ro In Range(Range("Tableau1").SpecialCells(xlCellTypeVisible).Address).Rows
        Debug.Print Ro.Address(0, 0)
    Next
End Sub

Sub testx()
Dim Rng As Range, Tbl As Variant
Set Rng = ActiveSheet.ListObjects("Tableau1").DataBodyRange.SpecialCells(xlCellTypeVisible)
Tbl = Rng
For i = LBound(Tbl, 1) To UBound(Tbl, 1)
   Debug.Print "ligne " & i
    'Boucle pour faire ce que l'on veux.
Next i
End Sub