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

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