Sub testDranreb()
Dim LMax As Long, L As Long, CMax As Long, C As Long
Dim A() As Double, X() As Double, Y() As Double
Dim s!, X0%, X1%, z!
LMax = 2
CMax = 3
Const Coef = 0.5
ReDim A(1 To LMax, 1 To CMax)
ReDim Y(1 To LMax)
ReDim X(1 To LMax)
X0 = 0
X1 = 1
For L = 1 To LMax
For C = 1 To CMax
A(L, C) = Coef
Next C
Next L
''''''''''''''''''''''''''''''''''''''''''''''''''''''
'affichage du tableau des variables
For LMax = LBound(A, 1) To UBound(A, 1)
For CMax = LBound(A, 2) To UBound(A, 2)
Cells(LMax, CMax) = A(LMax, CMax)
Next CMax
Next LMax
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
'pas de calcul Y
For L = 1 To LMax - 1
For C = 1 To CMax - 1
s = s + A(L, C)
z = X(L) + s
Y(L) = A(L, 1) + z ' X(L) * s
Next C
Next L
'affichage Y
For LMax = LBound(Y, 1) To UBound(Y, 1)
For CMax = LBound(Y, 2) To UBound(Y, 2)
Cells(LMax, CMax + 7) = A(LMax, CMax)
Next CMax
Next LMax
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
End Sub