bonsoir a vous
voila déja pour remplir la 1ère listbox, mais ce n'est pas la bonne solution
Dim TabFilter() As Variant
Private Sub UserForm_Initialize()
Dim L As Integer
Dim Plage As Range
Dim Cell As Range
Sheets("Feuil1").AutoFilterMode = False 'je mets l'auto filter OFF
L = Sheets("feuil1").Range("A65536").End(xlUp).Row 'je pense que tu connais
Set Plage = Sheets("Feuil1").Range("A1:A" & L) ' pour connaitre la plage
For Each Cell In Plage
ListBox1.AddItem Cell ' je remplis la ListBox
Next
End Sub