Sub creationTCD()
Dim ws As Worksheet, pc As PivotCache, TCD As PivotTable
Application.ScreenUpdating = False
Set ws = Sheets("Feuil1")
With ws
If .PivotTables.Count > 0 Then
.PivotTables(1).TableRange2.Delete
End If
Set pc = ThisWorkbook.PivotCaches.Add(xlDatabase, "plageTCD")
End With
Set TCD = pc.CreatePivotTable(ws.Range("F3"))
With TCD
.PivotFields("dates").Orientation = xlRowField
.PivotFields("clients").Orientation = xlColumnField
With .PivotFields("montants")
.Orientation = xlDataField
.Function = xlSum
End With
End With
End Sub