Sub parcoursItemsVisibles()
For Each c In [_FilterDataBase].Resize(, 1).SpecialCells(xlCellTypeVisible)
MsgBox c.Value & " " & c.Address
Next c
End Sub
Dim cellule As Range
'cellule = A1
Set cellule = ThisWorkbook.Sheets("Feuil1").Range("A1")
'récupérer la prochaine cellule visible
Do
Set cellule = cellule.Offset(1, 0)
Loop Until cellule.EntireRow.Hidden = False