XL 2019 Impossible de lire la propriété pivotitems de la classe pivotfield

[kira97493]

Bonjour je débute en code, pourriez-vous m'apporter votre aide pour cette erreur que je rencontre ci-dessous lorsque j'arrive sur la partie en gras ?

Sub AA()
'
' AA Macro
'

'
    With ActiveSheet.PivotTables("Tableau croisé dynamique5").PivotFields("NOM.")
        .PivotItems("").Visible = True
    End With
    Range("I38").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique5").PivotCache.Refresh
    With ActiveSheet.PivotTables("Tableau croisé dynamique5").PivotFields("NOM.")
        .PivotItems("").Visible = False
    End With
    With ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields("NOM.")
        [B].PivotItems("").Visible = True[/B]
    End With
    Range("T37").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotCache.Refresh
    With ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields("NOM.")
        .PivotItems("").Visible = False
    End With
    Range("A1").Select
End Sub

En vous remerciant,