[COLOR=blue]Private[/COLOR] [COLOR=blue]Sub[/COLOR] Worksheet_Change([COLOR=blue]ByVal[/COLOR] Target [COLOR=blue]As[/COLOR] Range)
[COLOR=blue]If[/COLOR] Target.Count = 1 [COLOR=blue]And[/COLOR] Target.Column <> 2 [COLOR=blue]And[/COLOR] Target.Column <> 3 [COLOR=blue]Then[/COLOR]
[COLOR=blue]Exit[/COLOR] [COLOR=blue]Sub[/COLOR]
[COLOR=blue]Else[/COLOR]
[COLOR=blue]If[/COLOR] [COLOR=blue]Not[/COLOR] IsEmpty(Target) [COLOR=blue]And[/COLOR] [COLOR=blue]Not[/COLOR] IsNumeric(Target) [COLOR=blue]Then[/COLOR]
codeA = [I]"ÀÄÉÈÊËÔéèêëàâäçùôûïî"[/I]
codeB = [I]"AAEEEEOeeeeaaacuouii"[/I]
temp = Target
[COLOR=blue]For[/COLOR] i = 1 To Len(temp)
P = InStr(codeA, Mid(temp, i, 1))
[COLOR=blue]If[/COLOR] P > 0 [COLOR=blue]Then[/COLOR] Mid(temp, i, 1) = Mid(codeB, P, 1)
[COLOR=blue]Next[/COLOR]
Application.EnableEvents = [COLOR=blue]False[/COLOR]
Target = UCase(temp)
Application.EnableEvents = [COLOR=blue]True[/COLOR]
[COLOR=blue]End[/COLOR] [COLOR=blue]If[/COLOR]
[COLOR=blue]End[/COLOR] [COLOR=blue]If[/COLOR]
[COLOR=blue]End[/COLOR] [COLOR=blue]Sub[/COLOR]