Stocker des valeurs

Bonjour à tous, j'ai un petit problème, je cherche comment stocker des valeurs dans une colonne en utilisant une boucle. Le programme est le suivant:

Option Explicit

Option Base 1

Sub recup()

Dim Montab(1 To 100) As Variant, i As Integer, res As Variant, H As Double

Range("F1").Value = "H"

Range("G1").Value = "av_Hvol"

H = 0.05

For i = LBound(Montab) To UBound(Montab)

res = bm_renko(100, 100000, 100, 0.2, (1 / 252) ^ 0.5, H) 'res est un tableau qui récupere plusieurs données à partir de la fonction bm_renko

Montab(i) = res(0)

H = H + 0.05

Next i

Range("G2:G101").Value = Montab

End Sub

Et j'aimerais dans la colonne G rentrer toutes les premières valeurs du tableau res (res(0)), dans la colonne G en utilisant une boucle. L'instruction qui a l'air de poser problème semble être celle-ci : Montab(i) = res(0)

Bonjour

Pas sur

Mais ce qui me gène c'est que tu utilises Option Base 1 et tu as Montab(i) = res(0)

Sinon pour la recopie de ton tableau tu peux utiliser

Range("G2:G101").Value = Application.Transpose(Montab)

Bonne journée