Code :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub '<-- pour éviter que ça coince si on sélectionne plusieurs cellules
If Target.Column = 5 Then
Target.Value = UCase(Target.Value)
End If
If Target.Column = 6 Then
Target.Value = StrConv(Target.Value, 3)
End If
End Sub