Dupliquer une macro sur plusieurs onglets

Bonjour,

J'aimerais à partir d'une même macro la dupliquer sur les différents onglets de mon fichier excel.

En sachant que seules les sources changeront sensiblement:

En effet au lieu de 0610, il faut s'attendre à avoir 0710, 0810, 0910 etc...

Je vous joins une partie de mon code :

'Filtre élaboré pour obtenir matricules selon centre de coût sélectionné
Workbooks("Ctrl Gestion -SG- analyse par postes -0610.xls").Sheets("RUB2"). _
Columns("A:S").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"A1:A2"), CopyToRange:=Range(activecell, Cells(a, 2)), Unique:=False

'1ère ligne formules 2010
activecell.Offset(1, 1).Select
activecell.Formula = Application.VLookup(activecell.Offset(0, -2), Workbooks("Ctrl Gestion -SG- analyse par postes -0610.xls").Sheets("RUB2").Columns("A:S"), 2, False)

activecell.Offset(0, 1).Select
activecell.Formula = Application.VLookup(activecell.Offset(0, -2), Workbooks("Ctrl Gestion -SG- analyse par postes -0610.xls").Sheets("RUB2").Columns("A:S"), 3, False)

activecell.Offset(0, 1).Select
activecell.Formula = Application.VLookup(activecell.Offset(0, -3), Workbooks("Ctrl Gestion -SG- analyse par postes -0610.xls").Sheets("RUB2").Columns("A:S"), 5, False)

activecell.Offset(0, 1).Select
Selection = ""

activecell.Offset(0, 1).Select
activecell.Formula = Application.VLookup(activecell.Offset(0, -5), Workbooks("Ctrl Gestion -SG- analyse par postes -0610.xls").Sheets("RUB2").Columns("A:S"), 11, False)

  

En partant du principe que je pourrais lier une cellule à la période souhaitée dans chaque onglet, comment puis-je spécifier cela dans mon code?

Vous remerciant par avance pour votre aide,
Très bonne journée

Magali