Bloquer cellules en majuscule

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B12:S12")) Is Nothing Then Exit Sub
Target.Value = UCase(Target.Value)
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B12:S12]) Is Nothing Then Target = UCase(Target)
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, Range("B12:S12"))
If Target Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each Target In Target
If Application.IsText(Target) Then Target = UCase(Target)
Next
Application.EnableEvents = True
End Sub