2 Fois Worksheet_Change

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim maj As String
If Target.Value = "" Then Exit Sub
If Not Intersect(Range("B:B"), Target) Is Nothing Then
maj = Left(Target, 1)
Target = UCase(maj) & Right(Target, Len(Target) - 1)
End If
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
Target = UCase(Target)
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
  Application.EnableEvents = False
  Target = UCase(Target)
  Application.EnableEvents = True
End If
If Not Intersect(Range("B:B"), Target) Is Nothing Then
  Application.EnableEvents = False
  Target = Application.Proper(Target)
  Application.EnableEvents = True
End If
End Sub

If Target.Column = 2 Then
  Target.Value = UCase(Left(Target.Value, 1)) & Right(Target.Value, Len(Target.Value) - 1)
End If