Private Sub Worksheet_Activate()
With ActiveSheet
.Range("K25").Select
.PivotTables("Tableau croisé dynamique3").PivotCache.Refresh
.Range("W26").Select
.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
.Range("AH25").Select
.PivotTables("Tableau croisé dynamique2").PivotCache.Refresh
End With
End Sub