ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Day"). _
CurrentPage = "(All)"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Day")
For Each p In Feuil2.PivotTables("Tableau croisé dynamique1").PivotFields("Day").PivotItems
p.Visible = True
Next p
For Each p In Feuil2.PivotTables("Tableau croisé dynamique1").PivotFields("Day").PivotItems
If p.Value > TextBox1.Value Then p.Visible = False
Next p
End With
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Day"). _
EnableMultiplePageItems = True