Problème de repérage

Bonsoir, j'ai un code dont je ne comprends pas ce qui à été fait.

Private Sub BoutNewProd_Click()
Dim Ok As Boolean, Prix#, Stock#, Annee#, Produit$
On Error GoTo erreur
Produit = EntreeValide(ComboCat, Trim$(TextBoxProdI & " " & TextBoxMilI))
If Produit = "" Then TextBoxProdI = ""
Prix = Numerique(TextBoxPrixI)
If Prix < 0 Then
TextBoxPrixI = ""
If Not CheckBoxPU Then Prix = 0
End If
Stock = Numerique(TextBoxStockI)
If Stock < 0 Then
TextBoxStockI = ""
If Not CheckBoxStock Then Stock = 0
End If
Annee = Numerique(TextBoxMilI)
If Annee < 0 Then
TextBoxMilI = ""
If Not CheckBoxMil Then Annee = 0
End If

Ok = TextBoxProdI <> "" And Prix >= 0 And Stock >= 0 _
And Annee >= 0 And ComboCat.ListIndex <> -1
If Ok Then
NouveauProduit ComboCat, TextBoxProdI, Int(Annee), Prix, Int(Stock)
TextBoxProdI = ""
TextBoxMilI = ""
TextBoxPrixI = ""
TextBoxStockI = ""
ComboCat_Change
End If
erreur:
End Sub



La valeur en rouge est retranscrite dans la colonne E. Je voudrais qu'elle le soit en colonne U.
Qu'est ce qui à été fait ? La colonne E à été renommée en "Prix" ???

Merci de m'éclairer.