Peut-on écrire ce code autremetn

'1ère lettre en Majuscule
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range, C As Range
Set Rg = Intersect(Range("A29, A34, A37, K4,S10, S18, S21"), Target)
If Not Rg Is Nothing Then
    Application.EnableEvents = False
    For Each C In Rg
        If C <> "" Then
            C.Value = UCase(Left(C, 1)) & LCase(Right(C, Len(C) - 1))
        End If
    Next
    Application.EnableEvents = True
End If

'Nom en MAJUSCULE
Dim Plage As Range
Dim Cellule As Range
Set Plage = Intersect(Target, Range("A4, K7, G24"))
    If Plage Is Nothing Then Exit Sub     'Intersection vide on quitte
        For Each Cellule In Plage     ' sinon on parcours toutes les cellules de la plage d'intersection
           Cellule = UCase(Cellule)    ' et on passe en majuscule
        Next
End Sub