Sub Test()
Dim pvFld As PivotField, JourOver$
Set pvFld = ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Groupement")
pvFld.ClearAllFilters
JourOver = InputBox("Overdue supérieurs ou égal à en J", "Overdue", 15)
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Groupement").PivotFilters.Add2 Type:=xlCaptionIsGreaterThanOrEqualTo, Value1:=JourOver
End Sub