Pb filtrage (avec critère date)

[JBSB]

Bonsoir,

J'ai un petit problème de filtre automatique. J'ai un tableau dans la feuille "Table" qui s'étend de A1 à BF2500. La colonne "B" reprend des dates de signalement d'anomalie. Lorsque je veux filtrer mon tableau avec ce critère (date) je n'obtiens pas le résultat souhaité. En effet, depuis un USF, je sélectionne la date que je recherche et mon programme est chargé de travailler sur la feuille en arrière plan. Il me filtre bien la table mais je n'ai comme résultat que la ligne d'entête. Pourtant quand je vais sur la petite flèche du champ "Date" (colonne B) il m'a bie sélectionné en bleu mon critère !!!

Voici un bout de mon programme :

Public Sub START()

Dim Critère As String

Critère = Comboboxselection

Sheets("Table").Select

If Sheets("Table").AutoFilterMode Then
Rows("1:1").Select
Selection.AutoFilter
Else
End If

Sheets("Table").Select
Rows("1:1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=Critère
Selection.CurrentRegion.Select
Selection.Copy
Sheets("Récupération").Select
Range("B1").Select
ActiveSheet.Paste

End Sub

"En théorie, je sélectionne une date dans un combobox de mon USF (Comboboxselection) au format 23/02/2004 et il va me filtrer ma table sur le 2ème champ. Ensuite il m'exporte le résultat de mon filtrage sur une autre feuille. Mais voilà, mon filtrage ne fontionne pas !

Quelqu'un pourrait-il m'aider svp ?! Si oui, y a-t-il une amélioration à apporter à ce programme ?

Merci d'avance et bonne soirée.

JBSB.