Il te suffit de remettre les alertes après l'actualisation.
VB:
Sub test()
Application.DisplayAlerts=False
'Ton tcd a actualiser'
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
Application.DisplayAlerts=True
End sub
Hmm, ton code était parfait mais je me suis rendu compte finalement que c'était le fait de cliquer sur "non" lorsque le pop up " XXX contient déjà des données. Voulez-vous les remplacer ? " apparaissait qui me continue de mettre à jour mes TCD.
Dans ce cas précis où je désactive le pop up alors je n'ai plus de mise à jour.
Merci pour ton aide!