VBA double actualisation

Bonjour à tous,

J'ai bien vu que la question a été posé plusieurs fois, mais je n'ai pas trouvé la bonne caractéristique à ce dont je souhaite faire à mon classeur EXCEL. Voici pourquoi je vous contact aujourd'hui.

J'ai un fichier Excel avec plusieurs feuilles :

= > La première est une feuille de synthèse.

= > Et les 28 autres sont à la suite un listing de référence avec leurs caractéristiques et leurs quantité et sur la feuille suivante le tableau dynamique qui me permet de réaliser la synthèse.

Classeur : Synthèse, listing magasin1, TCD magasin1, listing magasin2, TCD magasin2, ..... , listing magasin14, TCD magasin14.

Je voudrais créer une matrice qui actualise toutes mes données externes afin de pouvoir ensuite actualisé tous mes TCD, mais je ne m'y connais pas assez pour pouvoir réaliser cela.

Pensiez-vous pouvoir m'aider à créer cette macro ?

Merci d'avance d'utiliser votre temps à fin de m'aider.

Cordialement,

Fyou.

Voici pour le moment le code que j'ai créé, mais le soucis dans celui si c'est que les macros sont séparées et que j'aimerai un seul bouton pour tout déclencher à la suite...

Sub débloquer()

    'Enlever le blocage des feuilles du classeur
    For i = 1 To Sheets.Count
    Sheets(i).Unprotect Password:="121093"
    Next

End Sub
Sub Ouverture_fichier_source()

    'Ouverture du Fichier "FS FW19.xlsm" pour lancer l'actualisation de sa macro (qui est préprogrammé pour s'executer à son ouverture
    Dim NomClasseur As String
    ChDir "C:\Users\Nitro\OneDrive\Documents\Taff\SOLDES"
    NomClasseur = Dir("C:\Users\Nitro\OneDrive\Documents\Taff\SOLDES\full stock\FS FW19.xlsm")
    Workbooks.Open NomClasseur
    Workbooks.Save NomClasseur
    Workbooks.Close NomClasseur

End Sub
Sub Actualisation_données_externes()

    'Actualiser toutes les données externes du classeur
    ActiveWorkbook.RefreshAll

End Sub
Sub actialisation_TCD()

    'Actualiser tous les TCD du classeur
    Sheets("MATRICE AEROVILLE").Select
    ActiveWorkbook.RefreshAll

End Sub
Sub bloquer()

    'Vérouiller de nouveau toutes les feuilles du classeur
    For i = 1 To Sheets.Count
    Sheets(i).Protect Password:="121093"
    Next

End Sub

Cordialement,

Fyou