filtre

bonjour ou re-bonjour

dans le code suivant
j'ai un soucis avec un filtre quand je clic sur une valeur ds ma listbox2
le filtre fonctionne bien mais dans la listebox suivante il ya toute la colonne qui y correspond s'est comme si le filtre n'avais pas agit dans la colonne suivante alors qu'a l'ecran celui ci fonctionne je pense que s'est au niveau de "Sheets("feuil1").Range("b1").AutoFilter 2, ListBox2" a la suite de listbox2 il manque quelques chose mais quoi?

si quelqu'un peut faire trouver la solution

merci d'avance

Private Sub listbox2_click()
Dim Lem As New Collection
Dim Item
On Error Resume Next
ListBox3.Clear

If Sheets("feuil1").AutoFilterMode Then
Sheets("feuil1").Range("b1").AutoFilter 2, ListBox2
Else
Sheets("feuil1").Range("b1").AutoFilter 2, ListBox2
End If

For Each cell In Worksheets("feuil1").Range("c2:c250")
Lem.Add cell.Text, cell.Text
Next cell
On Error GoTo 0
For Each Item In Lem
UserForm1.ListBox3.AddItem Item
Next Item
End Sub

Private Sub listbox3_change()
End Sub