Bom dia!
Como você não especificou como você utiliza, ou quer utilizar o código VBA na sua planilha, segue:
ActiveSheet.PivotTables("Nome da tabela dinâmica").PivotFields("Nome do filtro").ClearAllFilters
ActiveSheet.PivotTables("Nome da tabela dinâmica").PivotFields("Nome do filtro").CurrentPage = "Filtro da segmentação"
Lembrando que a aba onde está a tabela dinâmica não pode estar oculta.
Espero ter ajudado,
Abraço!