Bonjour WILFRIED et au Forum,
Un ex, il y a peu ètre une autre solution.
Le 'Textbox2' est a remplacer par ton focus suivant :
Private Sub TextBox2_Enter()
If Len(TextBox1) <> 0 Then
If Right(TextBox1, 1) <> Chr(10) Then
TextBox1 = TextBox1 & Chr(10)
TextBox1.SetFocus
Else
TextBox1 = Left(TextBox1, Len(TextBox1) - 1)
End If
End If
A+