Détéction Touche entrée dans une TextBox de Tri Dynamique

Bonjour
J'ai une routine qui tri un tableau au fur et à mesure de la frappe dans une TextBox.
J'aimerais remettre cette TextBox à "zéro" quand j’appuie sur la touche "Entrée", mais je butte sur cette étape, je ne sais comment détecter cette touche.

Private [/contents/446-fichier-sub Sub] TextBox1_Change()
' Filtre Dynamique sur la Colonne B en fonction de la TextBox1

If Len(TextBox1.Value) = 0 Then
   Feuil1.AutoFilterMode = False
Else
    If Feuil1.AutoFilterMode = True Then
    Feuil1.AutoFilterMode = False
End If

Feuil1.Range("A1:P" & Rows.Count).AutoFilter field:=1, Criteria1:="*" & TextBox1.Value & "*"

End If
End Sub

Voici le fichier

https://www.cjoint.com/c/GEmo1knUmvf

Merci de votre aide