Bonjour,
c'est souvent plus pratique d'utiliser les indices (qui commencent à 0) :
Sub test()
Dim Itm, i As Long
Itm = Array(2, 4, 6, 8)
For i = 0 To UBound(Itm)
Debug.Print Itm(i)
Next i
End Sub
Tu sais où tu en es.
Sinon pour reprendre ta forme :
Dim Itm
For Each Itm In Array(2, 4, 6, 8)
Debug.Print Itm
Next Itm
mais tu ne sais pas si tu es le 2ème, le 4ème, ...
eric