tableau croisé dynamique et macro

Bonjour,

Je souhaite faire une macro afin de créer un tableau croisé dynamique pour mettre à jour chaque mois un certain nombre d'informations.
Mon TCD va chaque fois pointer sur le même onglet (BD) mais par contre le tableau de données de l'onglet BD peut éventuellement changer de taille (plus ou moins de lignes).
Je compte donc dans le prog le nombre NB de lignes de mon tableau de données et ensuite j'essaie de créer mon TCD.
Faisant mes premiers pas dans vba, j'ai fait un enregistrement de macro que je souhaite modifier pour l'adapter à mon nombre de lignes NB (et non 1664 qui est le nb de lignes actuel de mon fichier).
Comment faut-il écrire cela ???

Sheets("BD").Range("A1").Select

NB = Application.WorksheetFunction.CountA(Columns("A:A"))


Range(Selection, Cells(NB, 9)).Select

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"BD!R1C1:R1664C9").CreatePivotTable TableDestination:= _
"'[Optimisation_Exemple de tableaux de bord commerciaux.xls]TCD'!R1C1", _
TableName:="Tableau croisé dynamique", DefaultVersion:= _
xlPivotTableVersion10

Cliquez pour agrandir...