Private Sub CommandButton1_Click()
texte = Split([I15].Value, " ")
For i = 0 To UBound(texte)
If i = 0 Then
partie1 = texte(i)
ElseIf Len(partie1) + Len(texte(i)) + 1 <= 52 Then
partie1 = partie1 & " " & texte(i)
[B]Else: partie2 = Right([I15].Value, Len([I15].Value) - Len(partie1))[/B]
Exit For
End If
Next
[C4].Value = partie1
[B5].Value = partie2
End Sub