Tu peux mettre dans le code de la feuille (clic droit-visualiser le code)
déplace le avant dans une autre feuille , c'est plus sûr pour le cas où tu dois supprimer des lignes dans ton tableau de base ...
Private Sub Worksheet_Activate()
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
End Sub
P.