...
Do Until valcode = "" Or valcode = 0
For i = 1 To 4
indexcol = Application.WorksheetFunction.Choose(i, "b", "c", "d", "e")
Worksheets("init").Cells(y - 26, i).Value = ExtraireValeur(sDossier, sFichier, sFeuille, indexcol & y)
Next i
y = y + 1
valcode = ExtraireValeur(sDossier, sFichier, sFeuille, "B" & y)
Loop