Changer étiquette de données

[2susy]

bonjour à tous,

j'ai ressorti un thème des archives, étant donné ma nullité en macro !

est-il possible d'appliquer cette macro à plusieurs feuilles? ce qui a l'air de poser problème c'est la collection "etiquettes" qui ne se rapporte qu'à une feuille, or, j'ai un graphe par feuille avec des données spécifiques sur chaque que je ne souhaite pas mélanger

Sub ModifieEtiquettes()
Dim Ws As Worksheet, ChartObj As ChartObject
Dim Pts As Points
Dim ValX, ValY, ValNoms, Boucle As Long
Set Ws = ActiveSheet
Set ChartObj = Ws.ChartObjects(1)
ValNoms = ChartObj.Chart.SeriesCollection("Etiquettes").XValues
With ChartObj.Chart.SeriesCollection("Noms")
ValX = .XValues
ValY = .Values
Set Pts = .Points
For Boucle = 1 To Pts.Count
If ValNoms(Boucle) <> "" And ValX(Boucle) <> "" _
And ValY(Boucle) <> "" Then _
Pts(Boucle).DataLabel.Text = ValNoms(Boucle)
Next Boucle
End With
End Sub

merci pour vos réponses, si réponses il y a
bonne soirée
2susy