Private Sub UserForm_Initialize()
ListBox2.RowSource = "" ' nettoyage de la source
Filtre
With Sheets("Filtre").Range("A4").CurrentRegion.Resize(, 10)
ListBox2.ColumnCount = .Columns.Count
If .Rows.Count > 1 Then ListBox2.RowSource = "Filtre!" & .Rows(2).Resize(.Rows.Count - 1).Address
End With
End Sub