Bonjour,

N'ayant pas de solution apparente, j'ai utilisé un subterfuge.

Le tableau croisé dynamique est piloté à travers une liste redimensionnable ici de 20 éléments.

Le code est


Public Sub SelectTcd()
        zoneSelect = Range("SelEquipes")
        Sheets("Feuil2").PivotTables("Tableau croisé dynamique1").PivotFields("Club").CurrentPage = zoneSelect
        Sheets("Feuil2").PivotTables("Tableau croisé dynamique1").PivotFields("Club").CurrentPage = zoneSelect
End Sub


Sub MaJEquipes()
'
'
' Macro enregistrée le 31/03/2010 par JackyAmiens
'Détermination de la liste des clubs présent sur la feuille equipes

Sheets("Equipes").Columns("A:A").ClearContents
Sheets("Equipes").Range("A1") = "Equipes"

    With Worksheets("Feuil2").PivotTables("Tableau croisé dynamique1")
        x = .PivotFields("Club").PivotItems.Count
           
            For i = 1 To x
                Sheets("Equipes").Cells(i + 1, 1).Value = .PivotFields("Club").PivotItems.Item(i)
            Next i
    End With
  
    Sheets("Equipes").Range("A2:A" & x + 1 & "").Select
    ActiveWorkbook.Names.Add Name:="L_Equip", RefersToR1C1:= _
        "=Equipes!R2C1:R" & x + 1 & "C1"

End Sub


Le fichier d'exemple est joint (ce n'est pas le projet réel)