PB résultat macro TCD

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):

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

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