Récuperation de la valeure d'un variable dans une cellule

Bonjour,

je suis entrain de dévlopper un macro qui calcule les jours de stock par article, j'ai écrit le code ci dessous mais mon probléme est que j'arrive pas a la récupération de la valeure stock et de l écrire dans la cellule B26 merci de m'aidé
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
Sub day_of_stock()
Dim i As Integer
Dim stock As Double
Dim s As Double

stock = 2
i = 18

While Range("b" & i).Value < 0

'Cells(26, 2).Value = stock

If Range("b" & i).Value > 0 Then

stock = stock + 1 + (Range("b" & i).Value) / (Range("b" & i + 1).Value)

Range("b26").Value = stock

Else: stock = stock + 1

End If

i = i + 2

Wend

Range("b26").Value = s


End Sub
""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""