Set Plage = report.Worksheets("Sheet2").Range("A1").CurrentRegion
Plage.Name = "TCD"
Set pivot = report.Worksheets("Sheet1")
pivot.Activate
With ActiveSheet
.PivotTableWizard SourceType:=xlDatabase, SourceData:="TCD", TableDestination:= _
"R2C1", TableName:="TCDWS"
.PivotTables("TCDWS").PivotFields("Police").Orientation = xlPageField
.PivotTables("TCDWS").CalculatedFields.Add "SP 2009", "='charge 09'/'prime acquise 09'", True
.PivotTables("TCDWS").PivotFields("SP 2009").Orientation = xlDataField
.PivotTables("TCDWS").CalculatedFields.Add "SP 2010", "='charge 10'/'prime acquise 10'", True
.PivotTables("TCDWS").PivotFields("SP 2010").Orientation = xlDataField
End With
With ActiveSheet.PivotTables("TCDWS").DataPivotField
.Orientation = xlColumnField
.Position = 1
End With