'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 ???