Séléction multi-critéres d'une listbox pour filtre élaboré

[Maddad]

Bonjour,

Voila j'ai créer un userform avec une listbox contenant une liste d'année que j'utilise comme critère pour un filtre élaboré sur une colonne date, est-ce-qu'il est possible d'utiliser plus d'un critère de la listbox pour filtrer les données (liées par un ET logique), voici le code que j'utilise et qui ne me permet d'effectuer un filtre que pour un critère de la listbox à la fois :

Private Sub UserForm_Initialize()
ListDateArticle.RowSource = ("Items!Date_de_l_article")
ListDateArticle.MultiSelect = fmMultiSelectExtended
ListDateArticle.ListIndex = -1

Private Sub CbtValider_Click()
With Me.ListDateArticle
For a = 0 To .ListCount - 1
If .Selected(a) Then
Sheets("Evenements de pertes-filtre").Cells(2, 2).FormulaLocal = "=ANNEE('Evenements de pertes'!A2)=" & .List(a)
End If
Next a
End With

Merci d'avance