Sub MAJTCD()
Sheets('Nom de ta feuille ou se trouve les TCD').Activate
With ActiveSheet
.PivotTables('Nom du TCD1').RefreshTable
.PivotTables('Nom du TCD2').RefreshTable
.PivotTables('Nom du TCD3').RefreshTable
.PivotTables('Nom du TCD4').RefreshTable
End with
End Sub