Cellule en majuscule

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("C23:G43")) Is Nothing Then
        Target = UCase(Left(Target, 1)) & Mid(Target, 2)
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
    If .Count > 1 Then Exit Sub
    If Not Intersect(Target, [C23:G43]) Is Nothing Then
       .Value = StrConv(Left(.Text, 1), vbUpperCase) & Mid(.Text, 2)
    End If
End With
End Sub