Creer un tableau croise dynamique avec VBA sur la meme feuille que le data

[zrouda]

Salut,
Voici moi j'ai une feuille avec differente data et je veux utiliser le data que j'ai a partir de la cellule AR1 a ATxxx pour creer un TCD avec deux colonne une pour code et l'AUTRE qui compte les jour overdue
voici ce que j'ai ecrit mais ca fonctionne pas

Merci
ActiveWorkbook.Sheets("Nov data").Select

Range("AR1:AT1750").Select



' Create the PivotTable object based on the Employee data on Sheet1.

ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(1, 47)



ActiveSheet.Cells(1, 47).Select

'Set objTable = ActiveSheet.Cells(47, 1)







' Specify row and column fields.

Set objField = objTable.PivotFields("Code")

objField.Orientation = xlRowField





' Specify a data field with its summary

' function and format.

Set objField = objTable.PivotFields("Days Overdue")

objField.Orientation = xlDataField

objField.Function = xlCount