Private Sub UserForm_Initialize()
Dim Plage, C As Range
Set Plage = Feuil2.UsedRange
Plage.AutoFilter Field:=1, Criteria1:=Feuil1.[b6]
For Each C In Plage.Offset(1, 1).Resize(Plage.Rows.Count - 1, Plage.Columns.Count - 1).SpecialCells(xlCellTypeVisible)
Me.ListBox1.AddItem C
Next
Plage.AutoFilter
End Sub