Option Explicit
Sub TCD()
ActiveWorkbook.Names.Add Name:="Base_TCD", RefersToR1C1:="=OFFSET(Recap!C1:C36,,,COUNTA(Recap!C1))"
Sheets.Add after:=Sheets(1)
ActiveSheet.Name = "TCD"
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Base_TCD").CreatePivotTable TableDestination:= _
"'[Recap et TCD MultiFeuilles.xls]TCD'!R3C1", TableName:="TCD1"
ActiveWorkbook.ShowPivotTableFieldList = True
ActiveSheet.PivotTables("TCD1").PivotFields("Equipe TSE").Orientation = xlRowField
ActiveSheet.PivotTables("TCD1").PivotFields("Code entreprise").Orientation = xlRowField
ActiveSheet.PivotTables("TCD1").PivotFields("Salarié à conserver oui / non").Orientation = xlRowField
ActiveSheet.PivotTables("TCD1").PivotFields("Date d'envoi du mail à l'entreprise").Orientation = xlRowField
ActiveSheet.PivotTables("TCD1").PivotFields("Commentaires").Orientation = xlRowField
ActiveSheet.PivotTables("TCD1").AddDataField ActiveSheet. _
PivotTables("TCD1").PivotFields( _
"Date de regroupement des doublons"), _
"Nombre de Date de regroupement des doublons", xlCount
Range("A4").Select
ActiveSheet.PivotTables("TCD1").PivotFields("Equipe TSE"). _
Subtotals = Array(False, False, False, False, False, False, False, False, False, False, False, False)
ActiveSheet.PivotTables("TCD1").PivotFields("Code entreprise").Subtotals = _
Array(False, False, False, False, False, False, False, False, False, False, False, False)
Range("C4").Select
ActiveSheet.PivotTables("TCD1").PivotFields("Salarié à conserver oui / non"). _
Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _
False, False)
Range("D4").Select
ActiveSheet.PivotTables("TCD1").PivotFields( _
"Date d'envoi du mail à l'entreprise").Subtotals = Array(False, False, False, _
False, False, False, False, False, False, False, False, False)
ActiveWorkbook.ShowPivotTableFieldList = False
Application.CommandBars("PivotTable").Visible = False
ActiveWorkbook.RefreshAll
End Sub