Salut Carole et le forum,
Un petit bout de code à placer sur ton txtbox sur l'événement KeyDown
Private Sub TxtBCarole_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Static COMPTEUR As Integer
If KeyCode = 13 Then COMPTEUR = COMPTEUR + 1
End Sub
La déclaration de la variable en Static permettra de garder la valeur tout le long de l'exécution de ton USF (Dim aurait remis à 0 à la fin de la Sub)
Keycode correspond au code ascii des touches saisies et le 13 la touche entrée
Voilà et @ bientôt
Valérie