XL 2013 vba actualiser TCD si filtrage

Bonjour

Je suis nouveau sur le forum et je n'arrive pas à résoudre le problème suivant:
Je voudrais que mon TCD s'actualise automatiquement lorsque je fais un filtrage dans celui ci,
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
End Sub

Ce code provoque un bug dans Excel: on dirait qu'il tourne en boucle,
après des heures à essayer différentes méthodes : je me résigne à demander de l'aide aux experts.

d'avance merci