derlgn = Sheets('HISTO').Range('A65536').End(xlUp).Row
lgn = 0
With Me.ListBox1
.ColumnCount = 5
.ColumnWidths = '150;120;110;0;0'
For Each cel In Range('A2:A' & derlgn)
R = cel.Row
If Rows(R).Hidden = False Then
.AddItem Cells(R, 1).Value
For Col = 1 To 5
.Column(Col, .ListCount - 1) = Cells(R, Col + 1).Value
Next
End If
Next
End With