Private Sub AfficherLignesVisibles()
Dim R As Range
ListBox1.Clear
'Boucle sur toutes les lignes visibles dans la plage utilisée de la feuille
For Each R In Sheets("essai").UsedRange.SpecialCells(xlCellTypeVisible).Rows
If R.Row > 1 Then ListBox1.AddItem R.Cells(1, 6)
Next R
End Sub