Utiliser "find" pour rechercher une valeur

Bonjour,

J'ai un formulaire avec 2 listboxs contenant des valeur "années" et une plage de données ("Zonebdd") avec 2 colonnes contenant des dates, je voulais faire un filtre élaboré sur ces deux critéres, voici le code:

With Me.ListDateArticle 'Listbox avec les valeurs "année"'
For a = 0 To .ListCount - 1
If .Selected(a) Then
Critere = Critere & "(find(""" & .List(a) & """,Evenements de pertes!A2 )) *" 'Colonne avec les dates'
End If
Next a
End With

With Me.ListDateEvent 'Listbox avec les valeurs "année"'
For a = 0 To .ListCount - 1
If .Selected(a) Then 'selected(b) renvoie vrai ou faux
Critere = Critere & "(find(""" & .List(b) & """,Evenements de pertes!B2)) *" 'Colonne avec les dates'
End If
Next a
End With

Critere = "=" & Critere & "1"
Sheets("Evenements de pertes-filtre").Range("A2").Value = Critere

Sheets("Evenements de pertes-filtre").Activate 'Feuille de destination de la zone d'extraction'
Range("zonebdd").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("A1:A2"), CopyToRange:=Range("A4:R4"), Unique:=False


End Sub


Le problème c'est que la recherche a Find ici fonctionne avec du texte, et renvoie une erreur valeur pour les dates, je n'arrive pas à la corriger.

Merci