Couper chaine de caracteres

Bonjour,

En espérant que la cellule ne contienne pas plus de 76 caractères, sinon le code ci-dessous affichera plus de 38 caractères dans la cellule de droite...

Sinon, essaie ainsi :

Sub couper()
Dim Cel As Range
Dim Pos As Byte
For Each Cel In Range("B1:B" & [B65000].End(xlUp).Row)
    If Len(Cel) > 38 Then
        Pos = IIf(Mid(Cel, 38, 1) = " ", 38, InStrRev(Cel, " ", 38))
        Cel.Offset(, 1) = Right(Cel, Len(Cel) - Pos)
        Cel = Left(Cel, Pos - 1)
    End If
Next Cel
End Sub

Bonne journée

bonjour,

Normalement, le code balaie toutes les cellules de la colonne B, jusqu'à la dernière remplie....

A moins que toutes les cellules de la colonne B soient remplies....(formule ou autre....).
Lorsque tu fais un double-clic sur le bas, au centre, lorsque tu as les 4 flèches apparentes, de la cellule B1, jusqu'où tu vas?
Ou en faisant "Ctrl + Fin", tu arrives à quelle cellule?

@ te relire