Valider TextBox par touche entrée avec condition.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim dernLign As Long
dernLign = Range("A42").End(xlUp).Row + 1
If Len(TextBox1.Value) <= 5 Then
    Cancel = True
Else
    Cells(dernLign, 1) = TextBox1.Text
    TextBox1.Text = ""
End If
End Sub

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim dernLign As Long
dernLign = Range("A42").End(xlUp).Row + 1
If Len(TextBox1.Value) > 5 And KeyCode = 13 Then 'Ici, tant que je n'ai pas appuyer sur enter, j'écris dans la TextBox
    Cells(dernLign, 1) = TextBox1.Text
    TextBox1.Text = ""
End If
End Sub