TCD : avec PivotItem manquant, plantage avec .Visible mais pas avec .ShowDetail

[Sebast]

Bonsoir à toutes et à tous,

Avec un tcd, je ne comprends pas pourquoi, en l’absence d’un élément sur lequel mon code est censé intervenir :
- ça plante dans un cas (item « mois ») quand le mois en question n’existe pas
et pourquoi ça ne plante pas quand
- L’élément « année » n’existe pas …
Certes, dans le 1er cas, je veux afficher un mois n’existant pas dans la base (ex : « septembre » est absent) mais dans le second, je veux également afficher (les détails) d’année n’existant pas.

Comment se fait-il qu’en l’absence de l’item « année » ça marche et que ça plante avec « mois » ?

Sub Année()  ‘ pas de plantage en l’absence de « année »
 With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Année")
         .PivotItems("2013").ShowDetail = True
        .PivotItems("2012").ShowDetail = True
 End With
End Sub

Sub Mois()  ‘ plantage si par ex “Septembre” absent
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Mois")  ' alle Monate werden gezeigt
        .PivotItems("Janvier").Visible = True
        .PivotItems("Février").Visible = True
        .PivotItems("Septembre").Visible = True
End With
End Sub

Merci d’avance pour vos réponses