Boucle tant que caractére inférieure à ..

Bonjour,

Mon programme est assez complexe et je n'arrive pas à trouver la solution à ce problème ..

J'ai tout une macro qui recherche des donnés pour les placer sur une autre feuille , j'aimerais effectuer une recherche pour trouver la bonne cellule sur la première feuille donc :

-Pour de la colonne 26 à 25 j'aimerais qu'on sélectionne la cellulle de la ligne k
- compter le nombre de caractères
-tant que le nombre de caractère est inférieur à 10 on décale de 1
- Si supérieur à 10 on copie et on colle sur la seconde feuille dans la colonne 27

Je pensais que mon code était bon , mais il tourne dans le vide et ne se termine jamais :/

Merci

Code :
For i = 7 To dern
For j = 27 To 79

[...] ' DU CODE ET PLEIN DE CODE

For M = 26 To 35
Cells(k, M).Select
N = Len(ActiveCell)
MsgBox (N)
Do While N < 10
ActiveCell.Offset(0, 1).Select
N = Len(ActiveCell)

Loop

Next


ActiveCell.Offset(0, 26).Select

Selection.Copy
Sheets("Données_triées").Select
Cells(k, 27).Select
ActiveSheet.Paste

[ ... ] 'ENCORE DU CODE

k=k+1

Next

Next