Filtre tcd en vba

Bonjour le forum,

Je cherche à faire un filtre entre deux dates dans un tableau croisé dynamique. J'ai essayé de le faire à partir de l'enregistreur de macro, puis j'ai adapté le code à mes spécificités, et j'ai obtenu cela :

[code] Sub Macro2()
Dim var As Date
Dim var2 As Date
On Error Resume Next

var = InputBox("Veuillez indiquer la date de début")
var2 = InputBox("Veuillez indiquer la date de fin")
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Dt_Liv"). _
ClearAllFilters
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Dt_Liv"). _
PivotFilters.Add Type:=xlDateBetween, Value1:=var, Value2:=var2

End Sub [code]

Problème : ce code fonctionne lorsque les dates correspondent au début d'un mois. Exemple :

entre le 01/01/2008 et le 01/06/2008, pas de problème

Entre le 01/01/2008 et 15/12/2008, aucun filtre n'est généré

Où est l'erreur??

Merci d'avance