probleme avec la fonction Application.Transpose()

Bonjour a tous

J'ai créé dans un excel une macro qui permet de trier des lignes d'un tableau maitre, de remplir un tableau tampon et avec la fonction Application.Transpose () je recopie chaque ligne selectionnée dans un nouvel onglet.
Je me retrouve ainsi avec autant de nouveaux tableaux que de type par nom.

Cela marche tres bien si les cellules contiennent moins de 216 caracteres. au dela la fonction plante. or j ai besoin de recopier un champ "objet" qui est souvent rempli.

quelqu un a t il une idee pour que la fonction ne plante pas?
j ai mis le fichier en attachment (il marche si le champs objet est court).
Merci

Bonjour
Essaies avec

Code:

---

Dim TabRecup() As String

---

Le dim as string ne marche pas non plus. :(
je vais essayer une pre macro qui tronque le nombre de caractere dans la cellule peut etre.

j ai trouve.
comme le bug vient d un trop grand nombre de caractere a copier par cellule, je copie avec la fonction left(string, x) qui me permet de ne copier qu'un nb x de caracteres.