Aide macro simple

[Kaizers]

Bonjour à tous,

Petit blocage sur une macro et je sais que vous avez une solution

Voici le code :

Worksheets(Array("REG CIAL", "REG COLL", "NAT")).Select
'Worksheets("REG CIAL").Activate

Range(Z & "5").Value = "Act"

Le but est d'écrire "Act" dans 3 cellules, chaque cellule est sur un onglet différent.
Seulement la macro me l'écrit uniquement sur le premier onglet

Pourant j'ai sélectionné les 3 onglets

Une idée ?

 

[zebanx]

Bonjour Kaizers.

Cela doit fonctionner.

----
Sub valeur()
j = Array("REG CIAL", "REG COLL", "NAT")
For i = LBound(j) To UBound(j)
Sheets(j(i)).[Z5] = "Act"
Next i
End Sub