Bonjour

J'ai une boucle qui vérifie le nombre de caractère dans une cellule, si cela excède, le contenu est coupé et inséré dans une cellule créé.
On peut avoir 2, 3, 4 cellules crées.

Cette boucle tourne sur la colonne B, j'ai rajouté la fonction Merge dans ma boucle mais cela ne fonctionne pas (cela efface des données) ; juste avant le End If.
J'aimerais bien aussi que la colonne A soit fusionné d'après le nombre de ligne rajouté.

Merci pour votre aide

Voici le code :
'Découpage des cellules ayant trop de texte dans une cellule
For Each cell In Range("b1:b" & [b65000].End(xlUp).Row + 55)
If Len(cell) > 885 Then
'on recherche a l'aide de cette boucle l'espace se trouvant avant la position 900
For x = 1 To 30
If Mid(cell, 885 - x, 1) = " " Then Exit For
Next x

cell.Offset(1, 0).EntireRow.Insert
cell.Offset(1, 0) = Right(cell, Len(cell) - 885 + x)
cell.Value = Left(cell.Value, 885 - x)
Range(cell.Offset(1, 0), cell.Offset(0, 0)).Merge
End If
Next cell