Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, Range("A1:J47"))
If Target Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each Target In Target 'si entrées multiples (copier-coller)
Target = UCase(Target)
Next
Application.EnableEvents = True
End Sub