Sub ListAllItemObjects(mafeuil)
Dim pvt As PivotTable
Dim fld As PivotField
Dim itm As PivotItem
Dim i, j As Integer
Dim nbitem As Long
Const PREFIXE As String = "Total "
Dim A$
Dim R As Range
MsgBox mafeuil.PivotTables("Tableau croisé dynamique3").RowFields(2)
'MsgBox mafeuil.PivotTables("Tableau croisé dynamique3").RowFields(2).PivotItems.Count
nbitem = mafeuil.PivotTables("Tableau croisé dynamique3").RowFields(2).PivotItems.Count
For i = 1 To nbitem
A$ = mafeuil.PivotTables("Tableau croisé dynamique3").RowFields(2).PivotItems(i)
Set R = mafeuil.Cells.Find(PREFIXE & A$, LookIn:=xlValues)
If Not R Is Nothing Then MsgBox A$ & vbTab & R.Address(False, False, xlA1)
Next
End Sub