Pb VBA: Filtrer une date avec InputBox & AutoFilter

Bonjour,

Je suis en train de travailler sur une base de données, et je souhaite à l'aide d'un Input Box dans lequel on rentre une donnée, ici une date, afficher toutes les lignes correspondantes.

Mon code ne marche pas:


Private Sub CommandButton2_Click()
Sheets("BDD").Activate
Dim filtre As String
filtre = InputBox("Date à filtrer:", "FILTRE", "jj/mm/aaaa")
ActiveSheet.Range("c4:y9000").AutoFilter Field:=3, Criteria2:="*" & DDate & "*"
End Sub

Je sais qu'il s'agit d'un problème de format mais je ne sais pas comment régler cela..

Pouvez-vous m'éclairer stp?
Merci!