Tableau croisé dynamique

j'ai un problème lorsque je filtre sur des tableaux croisé dynamique, je suis en train d'utiliser ce code :
Sub Bouton1_Cliquer()

Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To 65
ActiveSheet.PivotTables("Tableau croisé dynamique" & i).PivotFields("Semaines"). _
ClearAllFilters
ActiveSheet.PivotTables("Tableau croisé dynamique" & i).PivotFields("Semaines"). _
CurrentPage = IIf(Sheets("Pareto ZAP1&2").Range("D8").Value = "", "(All)", Sheets("Pareto ZAP1&2").Range("D8").Value)
Next

End Sub


dans la ligne for i from 1 to 65 --> le code il marche lorsque je saisie un valeur inferieur à 32, comment faire ??