Recherche de date en mode autoFilter impossible.

Bonjour à toutes et à tous,

J'utilise 3 USF permettant de filtrer des données de produits pharmaceutiques avec le mode autoFilter.

Le 1er permet de filtrer avec les noms des produits.
Le 2ème permet de filtrer avec la quantité de produits.

Ces deux USF fonctionnent correctement.


Le 3ème est un USF calendrier permettant de filtrer par date de peremption. Le principe de fonctionnement du 3ème USF est
qu'en cliquant sur un jour du calendrier, j'affiche la date sélectionnée dans un textBox qui me sert à filtrer les produits qui ont une date de peremption identique au textBox.

Mais cela ne fonctionne pas. toutes les lignes du tableau sont cachées ( comme si j'avais effectué un filtrage avec les lignes vides seulement ).

Voici ci-dessous la procédure que j'utilise, j'ai essayé divers format de date, aussi bien pour le textbox que pour les cellules " date de peremption" sans grand résultat.
Bref je n'arrive pas à trouver mon erreur.

'********USF CALENDRIER********
'Filtrage par date de peremption

Private Sub userform_Initialize()
Calendrier.Value = Date
Calendrier.SetFocus
Range("A2").Select
End Sub
'*****************************
Private Sub Calendrier_Click()
TextBox1.Value = Format(Calendrier.Value, "dd mmmm yyyy")
Lancer_Recherche
End Sub
'*****************************
Private Sub Lancer_Recherche()
Worksheets("STOCK").AutoFilterMode = False
'RECHERCHE PAR DATE DE PEREMPTION DU PRODUIT
Dim WB As Workbook
Dim WS As Worksheet
Dim Critere As Date
Set WB = ThisWorkbook
With WB
Set WS = .Worksheets("STOCK")
End With
Critere = Format(TextBox1.Value, "dd mmmm yyyy")
If TextBox1.Value = "" Then
MsgBox "Veuillez Sélectionner la date de peremption à rechercher !", , "RECHERCHE INVALIDE"
Else
If WS.AutoFilterMode Then
WS.AutoFilterMode = False
WS.Range("A1").AutoFilter 5, Critere
Else
WS.Range("A1").AutoFilter 5, Critere
End If
End If
End Sub
'******************************

Merci de votre aide et bonne semaine,
Willy