Salut mipec,
le fait de modifier ta cellule en ajoutant "19-" provoque l'événement '_Change' ... qui rappelle ta procédure et rajoute "19-" qui re-provoque l'événement '_Change' qui... etc...
Il faut donc, selon les circonstances d'un programme, neutraliser les événements temporairement avec...
Application.EnableEvents = False
...ce qui nous donne :
Private Sub Worksheet_Change(ByVal Target As Range)
'
Application.EnableEvents = False
If Not Intersect(Target, Columns(3)) Is Nothing Then
If Target <> "" And Left(Target, 3) <> "19-" Then Target = "19-" & Target
End If
Application.EnableEvents = True
'
End Sub
A+