TCD en vba

[jdawson]

Bonjour

j ai le code suivant :

Sub TCD_ETRANGER()
'
' Macro1 Macro
' Macro enregistrée le 14/12/2012 par Bruno
'

'
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'Sheet 1'!R1C6:R50000C7").CreatePivotTable TableDestination:="", TableName:= _
"Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddFields RowFields:= _
"COMMUNE", PageFields:="CODE_POSTAL"
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("COMMUNE"). _
Orientation = xlDataField
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("CODE_POSTAL") _
.CurrentPage = "99"

End Sub

avec ce code je fais un TCD avec en tete de page le code postal 99 (sur 2 chiffres) et en dessous les communes avec en face le nombre de commune du departement 99

il faut savoir que pour nous quand on a 99 dans cp la commune contient le pays (allemagne, italie ...)
ma macro compterai donc les pays par ce biais la

j ai donc avec ce code 99 en haut
et dessous ALLEMAGNE 5
Italie 3
etc....

toutefois quand je clique dans l item Commune je devrais avoir que les communes correspondant au code 99 ?? j ai toutes les commune meme les francaises
quand je lance ma macros ca marche nickel mais si pour une raison on veut cliquer dans communes ca me remonte toutes les communes francaise et etrangere.. comment relie l item communes à l item preselectionne 99 ?

Merci par avance de votre aide,

bruno