macro: affichage du résultat du TCD

[nounouna]

Bonjour,
Je débute avec VBA et les macros. Je voudrais créer une macro qui permet de créer un TCD.
Mon tableau contient un nombre de colonne fixe: (ville, année, ..) et ligne fixe.
Dans cet exemple, je compte le nombre d'occurence de chaque année (colonne C).
En résultat, j'ai un tableau avec seulement 2 lignes (Nombre de YR qui est le titre, et total).
Je voudrais que le TCD affiche toutes les années.

Voici mon code ( avecl'enregistreur de macro):

Private Sub CommandButton1_Click()
Range("C1:C20").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Feuil1!R1C3:R20C3").CreatePivotTable TableDestination:= _
"[graph.xls]Feuil1!R23C3", TableName:="Tableau croisé dynamique1"

ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("YR"), "Nombre de YR", _
xlCount
Range("C3").Select
With ActiveSheet.PivotTables("Tableau croisé dynamique1")
.ColumnGrand = False
.RowGrand = False
End With
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Nombre de YR" _
).Function = xlCount
End Sub

En résultat, j'ai un tableau avec seulement 2 lignes (Nombre de YR qui est le titre, et total).
Je voudrais que le TCD affiche toutes les années.

Des idées?
Merci pour votre aide