selection de données TCD

Bonjour,
J'ai un petit problème, j'aimerais créer un TCD, mais je n'arrive pas à selectionner seulement mon tableau.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim LaPremiereLigne As Integer LaPremiereLigne = ActiveSheet.UsedRange.Row   Dim DerniereLigne As Integer DerniereLigne = Range("A65536").End(xlUp).Row   DerniereColonne = Range("A1").End(xlToRight).Column   ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ "Données!R3C1:R3186C9", Version:=xlPivotTableVersion14).CreatePivotTable _ TableDestination:="TCD!R3C1", TableName:="Tableau croisé dynamique2", _ DefaultVersion:=xlPivotTableVersion14

---

j,aimerais changer ceci : "Données!R3C1:R3186C9",
par la selection de mon tableau

Merci.

Code:

---

range(cells(premiereligne, dernierecolonne),cells(derniereligne, dernierecolonne))

---

Bonjour,

"TCD" étant la feuille contennt le TCD :

Code:

---

1 2 3

With Sheets("TCD").PivotTables(1) PlageSource = Application.Substitute(.SourceData, "L", "R") End With

---

.SourceData renvoie des coordonnées "L1C1" inexploitables par VBA. Il faut faire un remplacement de "L" par "R".