Erreur 6 Dépassement de Capacité

Bsr à tous. Je ne suis pas doué en vba. Je suis sur un projet de gestion de stock. Un truc certainement bénigne me donne de la migraine depuis deux jours. Il s'agit de l'Erreur 6. Si quelqu'un peut m'aider.
Alors je dois ajouter de nouvelles quantités sur des anciennes à des prix d'achats différents ou identiques. Il faut donc trouver un Coût Moyen Pondéré(CUMP) pour le nouveau prix de vente. Pour ce faire, j'ai déclaré deux(2) fonctions dans un module comme suit:
====== ' Coût Unitaire Moyen Pondéré(CUMP)=======
Public Function Cump(idProduit As Integer, QteEntree As Integer, PrixEntree As Single) As Single
Dim QteStockInit As Integer
Dim PrixStockInit As Integer
Dim valCump As Single
QteStockInit = Nz(DLookup("QteStock", "Produits", "idProduit=" & idProduit), 0)
PrixStockInit = Nz(DLookup("PrixUnitaire", "Produits", "idProduit=" & idProduit), 0)
valCump = (QteStockInit * PrixStockInit + QteEntree * PrixEntree) / (QteEntree + QteStockInit)
Cump = Round(valCump, 2)
End Function
======= ' Update PrixUnitaire après chaque nouvelle quantité entrée=======
Public Function UpdatePrixUnitaireCump(idProduit As Integer, Cump As Single)
Dim db As Database
Set db = CurrentDb
Dim req As String
req = "UPDATE Produits set PrixUnitaire= " & Replace(Cump, ",", ".") & _
"WHERE idProduit=" & idProduit
db.Execute req
db.Close
Set db = Nothing
End Function

Sur le formulaire, pour le bouton Valider j'ai ce code suivant

Private Sub btnValiderQte_Click()
Dim idProduit As Integer
Dim PrixUnitaire As Single
idProduit = Int(Form_F_ListProduit.idProduit)
If IsNumeric(Me.txtQte) And IsDate(txtDateEntree) And IsNumeric(txtPrixUnitaire) Then
Dim valCump As Single
valCump = Cump(idProduit, Me.txtQte, Me.txtPrixUnitaire)
Dim res As Boolean
res = UpdatePrixUnitaireCump(idProduit, valCump)

res = UpdateProduit(idProduit, Int(Me.txtQte), "+")
Dim mvt As Mouvement
Set mvt = New Mouvement
mvt.DateMov = txtDateEntree
mvt.idCommande = 0
mvt.idProduit = idProduit
mvt.PrixUnitaire = PrixUnitaire
mvt.QteCommande = Int(Me.txtQte)
mvt.TypeMov = "Entrée"
res = EnregistreMouvement(mvt)
Set mvt = Nothing
DoCmd.Close acForm, Me.Name
DoCmd.Requery
End If
End Sub
Quand je valide j'ai le message suivante: erreur d'exécution "6" dépassement de capacité . Et quand debogue il m'envoie sur la ligne suivante: valCump = (QteStockInit * PrixStockInit + QteEntree * PrixEntree) / (QteEntree + QteStockInit) de la fonction de coût pondéré du module