Salut Gilles,

Effectivement VB n'aime pas trop ce type d'affectation, pour ma part je verrais les choses comme ca :

' Pour des contantes de type INTEGER
Dim i As Integer
Dim x As Integer

Dim monTableau(20) As Integer
i = 1
For x = LBound(monTableau) To UBound(monTableau) - 1
monTableau(x) = i
MsgBox monTableau(x)
i = i + 1
Next

'Et pour les constantes de type STRING
Dim myArray1() As String
Dim myString As String
myString = "A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X"

myArray1 = Split(myString, ",")

For x = LBound(myArray1) To UBound(myArray1)
MsgBox myArray1(x)
Next