Je voudrais savoir comment faire pour faire un filtre dans un tcd sur une date donnée

Adapter le nom du TCD et celui du champ :

sub zz_TCD()
 laVar = InputBox("", "")
 Application.ScreenUpdating = False
  With ActiveSheet.PivotTables("MonTableau").PivotFields("Dates")
  Dim monPivIt As Object
   For Each monPivIt In .PivotItems
    monPivIt.Visible = True
  Next
  On Error Resume Next
  For Each monPivIt In .PivotItems
    If monPivIt.Name <> laVar Then monPivIt.Visible = False
  Next
  End With
 end sub