Bonjour à tous,

Je souhaiterais apporter de nouvelles fonctionnalités pour mon outil, je voudrais maintenant que les champs de mon TCD se définissent automatiquement.

C'est-à-dire que le .CurrentPage = (le contenu d'une cellule) en effet après la mise en place du boucle for l'objectif serait d'avoir toutes les entreprises et ainsi obtenir un onglet par entreprise avec son propre TCD.

Encore merci pour votre aide et vos réponses.

TCD1
PivotFields (Métier)
.CurrentPage = contenu de A1

PivotFields (Societe)
.CurrentPage = contenu de B1

TCD2
PivotFields (Métier)
.CurrentPage = contenu de A2

PivotFields (Societe)
.CurrentPage = contenu de B2

With ActiveSheet.PivotTables("TCD2").PivotFields("Métier")
        .Orientation = xlPageField
        .Position = 1
        .CurrentPage = "Mouton"
   End With