Excel TCD VBA

Bonjour,

J'ai effectué quelques recherches et n'arrive pas à trouver de solution.

Voilà, je voudrais que mon TCD (tableau croisé dynamique) soit réalisé à partir d'une plage de cellules variable et non fixe.

le code obtenu par l'enregistreur de macro est le suivant :

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Feuil1!R1C1:R18C18").CreatePivotTable TableDestination:="", TableName:= _
"Tableau croisé dynamique4"
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("Tableau croisé dynamique4").SmallGrid = False
ActiveSheet.PivotTables("Tableau croisé dynamique4").AddFields RowFields:= _
"Identcode_OMO", ColumnFields:="Z001"
ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields( _
"Total à fin juin 2006").Orientation = xlDataField

Ce que je voudrais, c'est qu'au lieu de "Feuil1!R1C1:R18C18" dans "SourceData", j'aimerais avoir quelque chose du genre "Range(Cells(1,1),Cells(10,20))".

Or, ceci ne fonctionne pas.

Auriez vous la solution ?

Merci beaucoup pour votre aide.

Cordialement,

S.P.