Merci !
J'ai fait ceci pour l'instant :
chaine = Replace(Cells(2, 18).Value, "_", "")
nb_iteration = Cells(2, 17).Value
i = 1
While i <= nb_iteration
Cells(i + 1, 8) = Mid(chaine, i, 1)
i = i + 1
Wend
Cela marche très bien, mais uniquement pour la premiere...