unable to set visible property of the pivot item

bonjour tout le monde
j ' ai un probleme deouis 2 jours que j'essaie de corriger mais j y arrive pas j'ai excel 2007 et pourtant j'ai cette erreur que d'après ce que j'ai lu est un bug pr 2003
voici le code si quelq'un peut m aider:

Sub modifier()
Dim pt As PivotTable
Dim pi As PivotItem
Dim pf As PivotField
Dim lngSortOrder As Long
Dim strSortField As String

Set pt = ActiveSheet.PivotTables("Tableau croisé dynamique1")
Set pf = pt.PivotFields("Section")
pt.ManualUpdate = True

' remember settings
strSortField = pf.AutoSortField
lngSortOrder = pf.AutoSortOrder
' manual sort
pf.AutoSort xlManual, pf.Name



pf.PivotItems("102").Visible = True ' erreeeeeeeeeeeeeur unable to set visible property


pt.ManualUpdate = False

' re apply sort order
pf.AutoSort lngSortOrder, strSortField



merciiiiiiiiii