Erreur d'execution 6

J'ai un souci à l'execution de mon. Il est ecrit "Erreur d'execution '6'. Depassement de capacité. Les lignes de codes sus soulignés se mettent en jaune. Que faire?

Private Sub ajouter_facture_Click()
Dim base As Database: Dim ligne As Recordset
Dim requete As String: Dim total As Integer: Dim total_achat As Integer

If (IsNumeric(qte_commandee.Value) And qte_commandee.Value > 0 And ref_produit.Value <> "") Then
If (Int(qte_commandee.Value) <= Int(Qte_stock.Value)) Then
total = Int(prix_unitaire.Value) * Int(qte_commandee.Value)
                total_achat = 0