Boucles for VBA

Bonjour, je ne parviens pas à résoudre le problème que me pose la ligne "Vente = Cells(Pligne, 4) * Cells(Pligne, 3)" dans le code suivant :

Sub rentabilité()
Dim Dligne As Long, Pligne As Long, Achat As Integer, Vente As Integer

Dligne = Sheets("Stock").UsedRange.Rows.Count
For Pligne = 1 To Dligne
    If Cells(Pligne, 2) = "Achat" Then
        Achat = Cells(Pligne, 4) * Cells(Pligne, 3)

    ElseIf Cells(Pligne, 2) = "Vente" Then
        Vente = Cells(Pligne, 4) * Cells(Pligne, 3)

    End If
Next

    Range("H1") = Achat - Vente
    Range("L1") = Updated

End Sub

Hello envoie un fichier exemple :)

Bonjour,

Une petite présentation ici serait bienvenue -->https://forum.excel-pratique.com/presentations

Vu l'explication nous non plus.
C'est quoi votre souci ?

A moins que ceci à corriger pour Achat (idem pour Vente):

Achat = (Cells(Pligne, 4) * Cells(Pligne, 3)) +  Achat

En dessous pourquoi Updated ?

Cordialement