[VBA] Appliquer une macro à plusieurs feuille

Bonjour,

J'utilise cette macro:

Sub aandre01()
Dim Etiq(100)
Dim NbValeurs As Long
NbValeurs = Range("A65536").End(xlUp).Row
Windows("Classeur1").Activate
For i = 1 To NbValeurs
Etiq(i) = Cells(i, 1)
Next i
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.SeriesCollection(1).Select
Plage = "B1:C" & NbValeurs
ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range(Plage), PlotBy _
:=xlColumns
ActiveChart.SeriesCollection(1).ApplyDataLabels Type:=xlDataLabelsShowValue, _
AutoText:=True, LegendKey:=False
For i = 1 To NbValeurs
ActiveChart.SeriesCollection(1).Points(i).DataLabel.Characters.Text = Etiq(i)
Next i
Windows("Classeur1").Activate
Range("A1").Select
End Sub

Mais impossible de savoir comment l'appliquer à plusieurs feuilles autres que la 1, pourriez vous m'aider?

Merci beaucoup!