Macro filtre date

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 ya un lorsqu'il filtre (Criteria1:>Datemin) et je n'arrive pas à corrigé l'erreur :

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:>Datemin, Operator:=xlAnd

End Sub

Merci pour votre aide