Tableau croisé dynamique, sans utiliser cet outil

Bonjour à tous et à toutes !

Une fois de plus, je me retrouve face à un muret et j'ai besoin d'aide !

J'aimerai faire un tableau, comme ceux des croisés dynamiques, mais sans passer par l'outil tableau croisé dynamique. En effet, j'utilise un tableau principal qui est voué à évoluer, et les tableaux croisés dynamiques ne permettent pas d'évoultion s'il y a des changements dans la liste utilisée...

Donc je voudrais savoir s'il est possible de faire ça ou pas, que ce soit avec des fonctions ou du VBA !

Merci d'avance pour votre aide, je met un fichier exmple en PJ, une feuille contient la liste et l'autre le tableau coiré dynamique que j'aimerai faire sans utiliser la fonction !

Voila voila.... !

Bonjour,

j'ai déclaré tes données en tableau dynamique (Excel 2007+) et crée cette procédure pour la mise auto des TCDs.

A te relire.

Cdlt.

Private Sub Worksheet_Activate()
Dim pt As PivotTable

    Application.ScreenUpdating = 0
    For Each pt In Me.PivotTables
        pt.PivotCache.Refresh
    Next pt

    MsgBox "Les TCDs ont été mis à jour.", vbOKOnly + vbInformation

End Sub

Merci beaucoup, c'est pile ce qu'il me fallait !