Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
Set r = Intersect(Target, [A:A], UsedRange) 'colonne A
If r Is Nothing Then Exit Sub
Application.EnableEvents = False 'désactive les évènements
For Each r In r 'si entrées/effacements multiples
r = UCase(r.Formula)
Next
Application.EnableEvents = True 'réactive les évènements
End Sub