XL 2013 Mettre une plage de cellule en majuscule

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range, C As Range
If Target.Address(0, 0) = "D14" Then Target = UCase(Target)
Set Rg = Intersect(Target, Range("D14:D41"))
If Not Rg Is Nothing Then
    Application.EnableEvents = False
    For Each C In Rg
        If C <> "" Then
            Select Case C.Column
                Case 4 'Pour la colonne D
                    C.Value = UCase(C.Value)
            End Select
        End If
    Next
       Application.EnableEvents = True
End If
End Sub