Dim flag As Boolean 'mémorise la variable
Private Sub TextBox1_GotFocus()
TextBox1 = Replace(TextBox1, "oe", Chr(156))
End Sub
Private Sub TextBox1_Change()
If Not flag Then TextBox1_GotFocus
End Sub
Private Sub TextBox1_LostFocus()
flag = True
TextBox1 = Replace(TextBox1, Chr(156), "oe")
flag = False
End Sub