Sub Tri_TCD_Date()
Dim valdeb As Long
Dim valfin As Long
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Date"). _
ClearAllFilters
'ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Date"). _
PivotFilters.Add2 Type:=xlDateBetween, Value1:="04/01/2012", Value2:= _
"12/01/2012"
valdeb = Cells(1, 7).Value2
valfin = Cells(2, 7).Value2
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Date"). _
PivotFilters.Add2 Type:=xlDateBetween, Value1:=valdeb, Value2:= _
valfin
End Sub