Private Sub Worksheet_Change(ByVal Cible As Range)
Dim Cel As Range
If Cible.Cells.Count < 500000 Then
Application.EnableEvents = False
For Each Cel In Cible.Cells
If Not IsEmpty(Cel.Value) Then If Not Cel.HasFormula Then Cel.Value = UCase(Cel.Value)
Next
Application.EnableEvents = True
End If
End Sub