Déclaration de variable

je voudrais déclarer une variable dans une macro

nomcherché = Toto, tata, titi, tutu, tyty, ......

comme ça je pourrais faire :

For nomcherché = 1 to 5

xxxx

xxx

xxx

Next nomcherché

et il me faire la macro avec les 5 noms que je voudrais

bonjour,

une manière de faire

Sub aargh()

For Each nom In Array("Toto", "tata", "titi", "tutu", "tyty")

MsgBox nom

Next

End Sub

Merci beaucoup