ThisWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
[Feuil3!A1].CurrentRegion.Address(, , xlR1C1, True)).CreatePivotTable _
TableDestination:="Feuil4!R1C1", _
TableName:="Mon TCD"
With Feuil4.PivotTables("Mon TCD")
.PivotFields ("Nom")
.Orientation = xlPageField
.Position = 1
.PivotFields ("Date")
.Orientation = xlPageField
.Position = 1
.AddDataField ActiveSheet. _
PivotTables("Mon TCD").PivotFields("Effectifs"), _
"Moyenne de Effectifs", xlAverage, "0,00%"
.AddDataField ActiveSheet. _
PivotTables("Mon TCD").PivotFields( _
"CA"), "Somme de CA", xlAverage
End With
End Sub