Private Sub filtretcd()
Dim PvtTbl As PivotTable
Set PvtTbl = Worksheets("tcd").PivotTables("tcd")
PvtTbl.ClearAllFilters
PvtTbl.RefreshTable
PvtTbl.PivotFields("Structure").PivotFilters.Add Type:=xlCaptionEquals, Value1:=Range("choix").Value
End Sub