Option Explicit
Sub Test()
Application.ScreenUpdating = 0
Sheets("TCD").Select
Cells.ClearContents
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Base!R3C3:R100C5", Version:=xlPivotTableVersion12).CreatePivotTable _
TableDestination:="TCD!R2C1", TableName:="TCD", _
DefaultVersion:=xlPivotTableVersion12
Sheets("TCD").Select
Cells(2, 1).Select
With ActiveSheet.PivotTables("TCD").PivotFields("Nom")
.Orientation = xlRowField
.Position = 1
.PivotItems("(blank)").Visible = False
End With
With ActiveSheet.PivotTables("TCD").PivotFields("Pays")
.Orientation = xlRowField
.Position = 2
End With
ActiveSheet.PivotTables("TCD").AddDataField ActiveSheet. _
PivotTables("TCD").PivotFields("Nb"), "Somme de Nb", _
xlSum
With ActiveSheet.PivotTables("TCD").PivotFields("Pays")
.Orientation = xlColumnField
.Position = 1
End With
ActiveSheet.PivotTables("TCD").CompactLayoutColumnHeader = "Pays"
End Sub