XL 2016 Compilation de 2 macros en 1

Bonjour,

je commence à enregistrer mes 1ères macro. J'ai un classeur excel qui comprend une base de données (onglet "base") qui doit être actualisée pour avoir les dernières données à jour. Et j'ai besoin d'actualiser aussi ensuite les TCD présents sur plusieurs autres onglets (onglet "par étab" et onglet "global") qui sont liés à cette base de données.

Pour le moment j'ai réussi a rendre fonctionnel chacune de ces macros (1. mise à jour de la base de données, et 2. actualisation des TCD). Mais je n'arrive pas à les combiner dans un même module pour ne faire qu'une seule macro. Lorsque je le fais (en supprimant la balise de fin de la 1ère et la balise de début de la 2ème), il ne m’exécute que la mise à jour de la base de données.

Voici les 2 macros :

1. actualisation de la base :
Sub ActualisationBase()
'
' Actualisation Macro
'
' Touche de raccourci du clavier: Ctrl+w
'
Sheets("Base").Select
ActiveWorkbook.RefreshAll
Sheets("Par étab").Select

End Sub


2. mise à jour des TCD :

Sub ActualisationTCD()


'Actualisation de tous les TCD :

Dim TCD As PivotTable
For i = 1 To Sheets.Count
For Each TCD In Worksheets(i).PivotTables
TCD.RefreshTable
Next
Next i

Sheets("Par étab").Select

End Sub




D'avance merci pour votre aide.