Sub TextBoxVersFeuille()
Dim lngIndex As Long
Dim lngFirstChar As Long
Dim lngNbChar As Long
Dim strTextBox As String
Dim strTexte As String
strTextBox = Sheet1.TextBox1.Value
lngNbChar = Len(strTextBox)
lngFirstChar = 1
For lngIndex = 1 To lngNbChar
If Mid(strTextBox, lngIndex, 1) = vbCr Then
strTexte = Mid(strTextBox, lngFirstChar, lngIndex - lngFirstChar)
lngFirstChar = lngIndex + 2
With ActiveCell
.Value = strTexte
.Offset(1, 0).Select
End With
End If
If lngIndex = lngNbChar Then
strTexte = Mid(strTextBox, lngFirstChar, lngIndex - lngFirstChar + 1)
With ActiveCell
.Value = strTexte
.Offset(1, 0).Select
End With
End If
Next
End Sub