Private Sub UserForm_Activate()
Dim i As Integer
Dim ligne As Integer
For i = 1 To 10
For ligne = 2 To Cells(1, i).End(xlDown).Row
If Rows(ligne).Hidden = False Then
Me.Controls('listbox' & i).AddItem Cells(ligne, i).Value
End If
Next ligne
Next i
End Sub