Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Application.EnableEvents = False
Application.ScreenUpdating = False
plage = Sheets("source").Range("A1").CurrentRegion.Address(ReferenceStyle:=xlR1C1)
ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:= _
"source!" & plage
Application.ReferenceStyle = xlA1
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub