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