VBA - format de toutes les Séries de données dans Pivot Chart

Bonjour,

je cherche à changer le format de toute les séries de données d'un Pivot chart lorsqu'une valeur change.

La macro bug lorsque je change la valeur en question; je n'arrive pas à comprendre pourquoi; je pense qu'il manque une spécificité dans le code...

Voilà ce qui s'affiche lorsque la valeur change :

"Object doesn't support this property or method", en surlignant la ligne
.Format.BarShape = xlCylinder

Voici le code :

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("B73")) Is Nothing Then

ActiveSheet.ChartObjects("Chart 4").Activate
Dim objSeries As Series
With ActiveChart
For Each objSeries In .SeriesCollection
With objSeries
.Format.BarShape = xlCylinder
End With
Next
End With
End If
End Sub

Si quelqu'un a une idée je suis preneur...

Merci !!