EXCEL 2007 : TCD tri qui marche pas!!

Bonjour,

Je suis sous EXCEL2007.

Je veux classer un Tableau Crois=E9 Dynamique, j'ai fait le code
suivant :

Groupe1 =3D array(NomGroupe, Intitul=E91, Intitul=E92, =85)
Groupe2 =3D array(NomGroupe, Intitul=E91, Intitul=E92, =85)
=85
ListeGroupe =3D array(Groupe1,Groupe2, =85)


On Error Resume Next

'initialiser le rang dans le TCD
intRang =3D 1

'parcourir la liste des groupes
For i =3D 0 To UBound(Liste_Groupe)
strNomGroupe =3D Liste_Groupe(i)

'parcourir chacun des groupes
For j =3D 1 To UBound(Liste_Groupe(i)) 'd=E9buter =E0 1 pour
sauter le nom du groupe

'v=E9rifier la pr=E9sence de l'intitul=E9 =3D Liste_Groupe(i)(j=
)
Cells.Find(What:=3DListe_Groupe(i)(j), After:=3DActiveCell,
LookIn:=3D _
xlFormulas, LookAt:=3DxlPart,
SearchOrder:=3DxlByRows, SearchDirection:=3D _
xlNext, MatchCase:=3DFalse,
SearchFormat:=3DFalse).Activate
If Err =3D 0 Then
'SI l'intitul=E9 est pr=E9sent dans le TCD ALORS classer
l'intitul=E9
ActiveSheet.PivotTables(strNomTCD).
_ <?????
PivotFields(strChampClass=E9).
_ <?????
PivotItems(Liste_Groupe(i)(j)).
_ <?????
Position =3D
intRang <?????
'incr=E9menter le rang dans le tableau
intRang =3D intRang + 1
Else
MsgBox "intitul=E9 absent" 'en
attente de d=E9veloppement
GoTo Suite
End If
Suite:
Err =3D 0
Next j 'index
int=E9rieur au groupe Liste_Groupe(i)

Next
i
'index de Liste_Groupe

Et curieusement le classement n'a pas lieu <?????,
Pourquoi et comment faire ???


Merci de votre collaboration.