XL 2013 Afficher tout les données aprés filtre sans linges cachée dans listbox

sousou à dit:

bonjour
En cherchant un peu.
Private Sub AfficheList()
'ListBox1.RowSource = Range("A2", Range("D65000").End(xlUp)).Address
Dim R As Range
ListBox1.Clear
For Each R In f.UsedRange.SpecialCells(xlCellTypeVisible).Rows
If R.Row > 1 Then

ListBox1.AddItem R.Cells(1, 1)
For col = 1 To 3
ListBox1.List(ListBox1.ListCount - 1, col) = R.Cells(1, col + 1)
Next
End If
Next R
End Sub

Cliquez pour agrandir...