Besoin d'un conseil pour une boucle

Sub macro4()

Dim i As Long
Dim j As Long

Sheets("Feuil1").Select

For j = 1 To 2


valD1 = Range("D1").Value
ActiveSheet.PivotTables("Tableau croisé dynamique" & j).PivotFields("Mois"). _
CurrentPage = "(All)"
With ActiveSheet.PivotTables("Tableau croisé dynamique" & j).PivotFields("Mois")
 'on le met tous à false sauf le premier
 For i = 2 To .PivotItems.Count - 1
    .PivotItems(.PivotItems(i).Name).Visible = False
 Next i

 'on remet à true le nombre voulu
 For i = 2 To valD1
   If i <= .PivotItems.Count - 1 Then
    .PivotItems(i).Visible = True


End If

Next i



End With
Next j
End Sub