dim i, LenChaine as integer
dim Machaine as string

Machaine = "GGAATGGATGGCCC"
LenChaine = len(Machaine)

for i = 1 to LenChaine step 1
if i = 1 then ' 1ier caractère de la chaine
Activesheet.cells(1,i) = left(Machaine, 1)
else if (i = LenChaine) then ' dernier caratere de la chaine
Activesheet.cells(1,i) = right(Machaine, LenChaine-1, 1) ' ou right(Machaine , LenChaine, 1), A VERIFIER
else
Activesheet.cells(1,i) = Mid(Machaine, i, 1)
end if
next i


Attention jai codé de tête, alors je suis plus sure de la structure du elseif, à verifier. Attention aussi aux erreurs de frappes, mais dans l'ensemble, l'idée est la :)
Qu'est ce que tu veux faire avec ca, ca ressemble à des chaines complémentaires d'ADN, LOL