Macro -filtre date

Bonjour,
Je souhaiterai à l'aide d'une macro demander à l'utilisateur d'un fichier de saisir une date (mise en variable au format jj/mm/aaaa) dans une fenêtre du type Input box.
Puis Excel fais un filtre de tableau en fonction de cette date (excel filtre et prend toutes les dates après celle indiquée par l'utilisateur)

Voici mon code ou il y a un problème lorsque je filtre : je n'arrive pas à avoir les dates postérieures (après la date rentrée par l'utilisateur) et je n'arrive pas à corrigé l'erreur :

Code:

---

1 2 3 4 5 6 7 8 9 10

'****************** Sub Macro() Dim Datemin As String   Datemin = InputBox("Date de début (au format jj/mm/aaaa: ", "Filtre date", Date)   Selection.AutoFilter Field:=10, Criteria1:> =DateValue(Datemin), Operator:=xlAnd   End Sub '*****************

---

Merci d'avance pour votre aide

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim dteMin Do dteMin = InputBox("entrez date sous format jj/mm/aaaa") Loop Until IsDate(dteMin) Or dteMin = ""   With Range("A1:R31") ' à adapter à ta plage .AutoFilter If dteMin <> "" Then dteMin = CLng(CDate(dteMin)) .AutoFilter Field:=10, Criteria1:=">=" & dteMin End If End With

---