XL 2019 TCD ajout automatique des nouveaux champs (VBA)

Bonjour,

Malgré différents forum, je n'arrive pas à résoudre mon problème.

Je voudrais que après actualisation d'un TCD, les nouvelles colonnes (nouveaux champs) soient automatiquement cochés et donc positionnés en lignes.

La seule solution serait une VBA ?

J'ai essayé avec PivotItems(Pivots).Visible = True

Mais cela ne me coche pas les nouveaux champs pour les positionner en ligne.

J'ai essayé ce code VBA mais cela ne marche pas, je n'arrive pas à faire en sorte que soit cocher automatiquement tout les nouveaux champs.

Sub test22()
Dim Nbre_Champs As Byte, Champs As Byte
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
Nbre_Champs = ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields.Count
For Champs = 1 To Nbre_Champs
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields(Champs).Orientation = xlRowField = True
End With
Next Champs
End Sub

Merci pour votre aide, je n'ai plus l'habitude d'utiliser la VBA donc pas facile de trouver. Peut-être est-ce impossible ???

Merci pour vous lumières

Ci-joint fichier