Variable ne change pas de valeur dans une boucle for

Dim input_count As Integer, d As Integer, ii As Integer
Dim output_count As Integer
Dim y As Single
input_count = Application.WorksheetFunction.CountA(Feuil1.Range("$V:$V"))
output_count = Application.WorksheetFunction.CountA(Feuil1.Range("$W:$W"))
ReDim xin(input_count) As Double
ReDim yin(input_count) As Double
Dim x As Single
d = Application.WorksheetFunction.CountA(Range("Y:Y"))
For ii = 6 To d
x = Cells(ii, 24).Value 'on prend l'input x ceci

blablabllllaa

Cells(ii, 26).Value = y
Next ii
end sub