Automatically update a pie chart - vba

Question

I have a sheet with lot of data, I create a pivot table to have a pie chart, I would like the pie chart to update if I filter on my sourcesheet data. I don't know if there's way to automatically update the pie chart while filtering on the source sheet. For example if I created a pivot table with 10 elements and that I return in my source sheet and apply a new filter on 5 element I would like the pie chart to be updated automatically with the new filter without making a new pivot table
Sub Macro1 ()
Cells.Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Alarmes!R1C1:R1048576C11", Version:=xlPivotTableVersion15).CreatePivotTable _
TableDestination:="Graphe DOS!R1C1", TableName:="Tableau croisé dynamique2" _
, DefaultVersion:=xlPivotTableVersion15
Sheets("Graphe DOS").Select
Cells(1, 1).Select
ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
ActiveChart.SetSourceData Source:=Range("'Graphe DOS'!$A$1:$C$18")
With ActiveChart.PivotLayout.PivotTable.PivotFields("Tranches")
.Orientation = xlPageField
.Position = 1
End With
'i'll be filtering on the SE column
With ActiveChart.PivotLayout.PivotTable.PivotFields("SE")
.Orientation = xlPageField
.Position = 1
End With
With ActiveChart.PivotLayout.PivotTable.PivotFields("Alarmes")
.Orientation = xlRowField
.Position = 1
End With
ActiveChart.PivotLayout.PivotTable.AddDataField ActiveChart.PivotLayout. _
PivotTable.PivotFields("Descriptifs"), "Nombre de Descriptifs", xlCount
End Sub
Thank You for your time and help