Régler la largeur de la colonne d'un TCD contenant un certain champ

Bonsoir à toutes et à tous,

je cherche l'instruction qui me permettra d'intervenir sur la largeur de la colonne d'un TCD contenant le champ "genre"
Mon code plante sur l'instruction .ColumnWidth = 25

En fait, je voudrais balayer toutes les feuilles de mon classeur et si le tcd contient le champ "genre", alors dimensionner la colonne à 25

Je n'arrive pas :
1) à tester si la feuille contient un TCD avec le champ "genre"
2) accéder à ce champ pour en régler la taille

Qui peut me dire ce qui ne va pas dans mon code ?
D'avance, un grand merci

xxxxxxxxxxxxxxxxxxxxxxxxxx ci-dessous mon code xxxxxxxxxxxxxxxxxx

Sub régler_colonne_genre()

Dim sh As Long

For sh = 1 To Sheets.Count ' on démarre de la 1ère feuille

Sheets(sh).Select

If ActiveSheet.PivotTables.Count > 0 Then

With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Genre")
.ColumnWidth = 25
End With

End If

Next ' feuille suivante

End Sub