Si vous tenez à avoir le texte entier en I9, vous pouvez utiliser le code :
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$I$9" Then Exit Sub
Application.EnableEvents = False
Target = UCase(Replace(Target, ",", "."))
Application.EnableEvents = True
Range("N7").Select
End Sub