Reprendre éléments pour un Autofilter

[erics83]

Bonjour,
J'ai une feuille "B", en ligne 1, j'ai mis un Autofilter.
Dans un USF, j'ai créé une listbox qui reprend les données de la colonne A, j'ai mis un liststyleoption (me permettant d'avoir "les petits carrés" de sélection des éléments dans la listbox (merci les tutos de JB).
Je souhaite que lorsque le USF, le code reprenne les éléments cochés de la listbox et les mettent en Autofiltre....
J'ai fait (commandbutton1 étant le bouton de validation et de sortie du USF):

Private Sub CommandButton1_Click()

For i = 2 To Me.ListBox1.ListCount - 1
        If Me.ListBox1.Selected(i) = True Then
        Sheets("B").Range("$A$2:$F$10").AutoFilter Field:=1, Criteria:=Sheets("B").Cells(i, 1), Operator:=xlOr
        End If
   Next i

Unload Me

End Sub

Cela ne fonctionne pas et je ne vois pas où est mon erreur....

Merci pour votre aide,