Private Sub UserForm_Initialize()
Set plage = Sheets("Données").Range("A2", [A65536].End(xlUp))
Set PlageFiltree = plage.SpecialCells(xlCellTypeVisible)
For Each cel In PlageFiltree
Me.ListBox1.AddItem
Me.ListBox1.List(i, 0) = cel.Value
Me.ListBox1.List(i, 1) = cel.Offset(0, 1).Value
i = i + 1
Next cel
End Sub