Actualiser tableaux dynamiques vba

Bonjour 

je souhaite actualiser automatiquement mes deux tableaux dynamiques présents dans mon classeur.

Grâce à des forums, j'ai réalisé ce code VBA :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

Worksheets("BD_Catalogue").Unprotect
Worksheets("Catalogue Produits").Unprotect
Worksheets("BD_Coûts_pieds").Protect
Worksheets("Coûts_pieds").Protect

ActiveWorkbook.RefreshAll 'make sure the refresh in bg property is false for all connections

Worksheets("BD_Catalogue").Protect
Worksheets("Catalogue Produits").Protect
Worksheets("BD_Coûts_pieds").Protect
Worksheets("Coûts_pieds").Protect

End Sub

Cependant, le TCB est actualisé automatiquement que pour la liaison Catalogue Produits(TCD) et BD_Catalogue Produit mais pas pour l'autre liaison. 

Avez -vous une solution à me proposer ? (j'ai excel 2019)

merci