Majuscule en temps réel

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Inter As Range
    Set Inter = Application.Intersect(Target, Columns(2))
    If Not Inter Is Nothing Then
        Target = UCase$(Target)
    End If
End Sub

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Inter As Range
Dim LastRow As Long, i As Long
    Set Inter = Application.Intersect(Target, Columns(2))
    If Inter Is Nothing Then Exit Sub
    LastRow = Feuil1.Range("B" & Rows.Count).End(xlUp).Row
    For i = 1 To LastRow
        Feuil1.Range("B" & i) = UCase$(Feuil1.Range("B" & i))
    Next i
End Sub