bonjour a tous

j'ai un petit soucis avec un message d'erreur que je ne comprends pas

j'ai un code HTML que je veut decouper
il peut contenir jusqu'à 200000 caractères et peut être plus
j'essaie donc de le couper et de mettre chaque morceau dans une cellules
sachant qu'une cellule peut contenir plus de 32000 caractères je suis loin de compte puisque je coupe tout les 200 caractères
mais voila au bout d'un moment la macro déclenche l'erreur "mémoire insuffisante " et je ne comprends pas pourquoi
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
T="balablablablabla......."
Sheets.Add After:=Sheets(Sheets.Count)
 
    Sheets(Sheets.Count).Name = imgname
    For L = 1 To Len(t) Step 200
    a = IIf(L > 1, a + 1, 0): it = it + 1
    Fin = IIf(Len(t) - L + a >= 200, L + a + 200, Len(t))
    'Debug.Print "debut = " & L + a & " fin = " & fin
    Sheets(imgname).Range("A" & it) = Mid(t, L + a, Fin)
 Next
quelqu'un a une idée la dessus ????,