Majuscules et NomPropre -EXCEL

Sub ConvertiM()
    Dim colsM As Variant, colsNP As Variant, c As Variant, i As Long, j As Long
    'colonnes à convertir en majuscules
    colsM = Array("B", "D", "F", "J", "K", "N", "R", "T", "X", "AN", "AQ")
    'colonnes à convertir en Nom Propres
    colsNP = Array("C", "E", "M", "O", "S", "U", "W", "Y", "AO", "AR")
    For Each c In colsM
        For j = 1 To Range(c & "65536").End(xlUp).Row
            If Not IsNumeric(Range(c & j).Value) And Not IsDate(Range(c & j).Value) Then
                Range(c & j) = UCase(Range(c & j))
            End If
        Next j
    Next c
    For Each c In colsNP
        For j = 1 To Range(c & "65536").End(xlUp).Row
            If Not IsNumeric(Range(c & j).Value) And Not IsDate(Range(c & j).Value) Then
                Range(c & j) = Application.Proper(Range(c & j))
            End If
        Next j
    Next c
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim colsM As Variant, colsNP As Variant, c As Variant, col As String, i As Long, j As Long
    'colonnes à convertir en majuscules
    colsM = Array("B", "D", "F", "J", "K", "N", "R", "T", "X", "AN", "AQ")
    'colonnes à convertir en Nom Propres
    colsNP = Array("C", "E", "M", "O", "S", "U", "W", "Y", "AO", "AR")
    Application.EnableEvents = False
    col = Mid(Cells(1, Target.Column).Address, 2, Len(Cells(1, Target.Column).Address) - 3)
    For Each c In colsM
        If col = c Then
            If Not IsNumeric(Target.Value) And Not IsDate(Target.Value) Then
                Target.Value = UCase(Target.Value)
                
            End If
        End If
    Next c
    For Each c In colsNP
        If col = c Then
            If Not IsNumeric(Target.Value) And Not IsDate(Target.Value) Then
                Target.Value = Application.Proper(Target.Value)
            End If
        End If
    Next c
    Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    'cellules en majuscules
    If Not Intersect(Target, Union([C12], [H12])) Is Nothing Then
        If Not IsNumeric(Target.Value) And Not IsDate(Target.Value) Then
            Target.Value = UCase(Target.Value)
        End If
    'cellules en Nom Propre
    ElseIf Not Intersect(Target, Union([C11], [H11])) Is Nothing Then
        If Not IsNumeric(Target.Value) And Not IsDate(Target.Value) Then
            Target.Value = Application.Proper(Target.Value)
        End If
    End If
    Application.EnableEvents = True
End Sub

If Not Intersect(Target, Union([C12], [H12])) Is Nothing Then
    If Not IsNumeric(Target.Value) And Not IsDate(Target.Value) Then
        Target.Value = UCase(Target.Value)
    End If
End If