Private Sub UserForm_Initialize()
'alimenter un listbox avec liste filtrée
Dim ligList As Long
i = 0
For ligList = 2 To 14
If Rows(ligList).Hidden = False Then
If Range("A" & ligList) <> "" Then
ListBox1.AddItem Range("A" & ligList)
ListBox1.List(i, 1) = Range("b" & ligList)
i = i + 1
End If
End If
Next ligList
End Sub