Macro fonctionnant sous 2013 mais pas 2007

Bonjour à tous!

J'ai réalisé un code permettant à l'utilisateur de saisir une date dans un inputbox et de filtrer un tableau en fonction de cette date. Cette macro marche à merveille sur 2013 mais sur 2007 elle n'affiche aucun résultat...

Voici le code :

Sub filtre_date()

Application.ScreenUpdating = False

Sheets("Suivi").Select
Dim DateCherchee As Variant

    With ActiveSheet
       If .FilterMode = True Then .ShowAllData
       DateCherchee = InputBox("Entrez une date", "Rechercher", "00/00/0000")
       If IsDate(DateCherchee) = True Then Range("tableau").AutoFilter Field:=1, Operator:=xlFilterValues, Criteria1:=Array(2, CDate(DateCherchee))
    End With

Application.ScreenUpdating = True

End Sub

J'ai essayé de refaire entièrement le fichier sur la version 2007 en copiant collant juste les macros mais cela ne fonctionne toujours pas :/ Est ce que quelqu'un aurait une idée de la provenance du problème s'il vous plait?

En vous remerciant par avance!

Bonjour,

Je viens de tester ton code sous Excel 2007 ... en déclarant le critère As String ...

Sub filtre_date()
Dim DateCherchee As String

Application.ScreenUpdating = False
Sheets("Suivi").Select 
    With ActiveSheet
       If .FilterMode = True Then .ShowAllData
       DateCherchee = InputBox("Entrez une date", "Rechercher", "00/00/0000")
       If IsDate(DateCherchee) = True Then Range("tableau").AutoFilter Field:=1, Operator:=xlFilterValues, Criteria1:="=" & DateCherchee
    End With
Application.ScreenUpdating = True

End Sub