Merci du retour Pour le code dans votre feuille, mettez plutôt comme ceci
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
On Error GoTo exitsub
Application.EnableEvents = False
Target = Application.Proper(Target)
exitsub:
Application.EnableEvents = True
End Sub