En fait la macro complète est :
Private Sub OK_Click()
Dim FeuilleOrigine, FeuilleDestination, NomTable
Dim lignefin, colfin, lignedeb, coldeb
'lecture userform
FeuilleOrigine = ComboBoxType.Value
FeuilleDestination = 'TCD_' & ComboBoxType.Value
NomTable = 'Table_' & ComboBoxType.Value
Sheets(FeuilleOrigine).Select
'comptage du nomdre de lignes et de colonnes du tableau
lignefin = Cells(3, 2).CurrentRegion.Rows.Count
colfin = Cells(3, 2).CurrentRegion.Columns.Count
'valeurs des variables de début de lignes et de colonnes
lignedeb = 3
coldeb = 2
On Error GoTo création
'Mise à jour
ActiveSheet.PivotTables(NomTable).PivotCache.Refresh
Sheets(FeuilleDestination).Select
Exit Sub
création:
Sheets.Add.Select
ActiveSheet.Name = FeuilleDestination
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:='FeuilleDestination!R' & lignedeb & 'C' & coldeb & ':R' & lignefin & 'C' & colfin).CreatePivotTable TableDestination:=Sheets(FeuilleDestination).Range('B4'), TableName:=NomTable