Bonjour Precisium, bonjour le forum,
Essaie avec la macro événementielle Change ci dessous, à placer dans l'onglet concerné :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
Target.Value = UCase(Target.Value)
End Sub