Microsoft 365 code vba bouton suivant

Private Sub TCD_ScrollV_Change()
    Dim y as long
    y = ActiveSheet.PivotTables("Nom_TCD").PivotFields("NomChamp").PivotItems.Count
    TCD_ScrollV.Max = y
    Call Defiler(TCD_ScrollV.Value, y, ActiveSheet.PivotTables("Nom_TCD").PivotFields("NomChamp"))
End Sub

Sub Defiler(x, y, TCD As PivotField)

Application.ScreenUpdating = False
    With TCD
        AMasq = IIf(x <> 1, True, False)
        .PivotItems(1).Visible = True
        For i = 2 To y
             .PivotItems(i).Visible = i = x
        Next i
        If AMasq = True Then .PivotItems(1).Visible = False
    End With
End Sub