Sub DécoupeTextBox(MonContrôle As String)
A = Right(MonContrôle, 1) * 1
Dim ltext As Integer
Dim memtext As String
ltext = Len(Controls(MonContrôle)) - 56
memtext = Right(Controls(MonContrôle), ltext)
Controls("TextBox" & (A + 1)) = memtext & " " & Left(Controls("TextBox" & (A + 1)), 56 - ltext)
Controls(MonContrôle) = Découpe(Controls(MonContrôle), 56, 1)
With Controls("TextBox" & (A + 1))
.SetFocus
.CurX = 1
End With
End Sub