Bonjour,

cells(1,i) = Mid(Machaine, i, 1) est suffisant entre le for et le next.

ou bien sans vba:

A1: GGAATGGATGGCCC
B1: =STXT($A1;COLONNE()-1;1)

formule à recopier vers la droite et peut être recopiée vers le bas si besoin

eric