ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
Range(Cells(1, 1), Cells(DerLig, FinObs))).CreatePivotTable TableDestination:="", TableName:= _
"TCD1", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTables("TCD1").AddFields RowFields:=ChLig, ColumnFields:=ChCol
ActiveSheet.PivotTables("TCD1").PivotFields(CbxData).Orientation = xlDataField