Bonjour beatbles,

J'ai déplacé le code de l'événement Exit vers l'événement KeyDown comme suit :

Private Sub txtSaisie_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  
  Dim nHeu As String
  Dim Rep As String
  
  If KeyCode = vbKeyReturn Then
  
    Range("B1") = txtSaisie
    TextBox3 = Range("A1")
    nHeu = Range("C1")
    Rep = Format(nHeu, "hh:mm:ss")
    TextBox2 = Rep
    txtSaisie = ""
    
    KeyCode = vbKeyHome
    
  End If
    
End Sub

À noter que j'ai renommé la zone de texte TextBox1 en txtSaisie et ajouté Option Explicit dans l'en-tête du module.

Zieute la solution et dis-nous si la chose convient.

Cordialement,

Guy