Sub FiltreDate()
Dim du As String, au As String
du = Format(DateSerial(2013, 6, 1), "dd/mm/yyyy") & " 00:00:00"
au = Format(DateSerial(2013, 6, 3)+1, "dd/mm/yyyy") & " 00:00:00"
'OU au = Format(DateSerial(2013, 6, 3), "dd/mm/yyyy") & " 23:59:59"
With ActiveSheet.PivotTables("Tableau croisé dynamique6").PivotFields("Date/Time")
.ClearAllFilters
.PivotFilters.Add Type:=xlCaptionIsBetween, Value1:=du, Value2:=au
End With
End Sub