Macro,Entrée,Sortie,Stock et vendu

Bonjour,

Je cherche une Macro pour mon tableau Excel Entré,Sortie,Stock et vendu.
j'ai déjà eu une première partie de la macro (voir ci dessous) ,mais il me manque la partie de la cellule (Vendu) voir l'exemple en lien.
Je suis désolé si je ne suis pas très clair mais c'est mon premier Forum ,je ne sais pas trop comment m'y prendre.
Merci à vous.


Private Sub Worksheet_Change(ByVal Target As Range)

If Not IsNumeric(Target.Value) Then Exit Sub

If Not Intersect(Target, Range("E:F")) Is Nothing Then
'Deprotege
Range("G" & Target.Row).Value = IIf(Target.Column = 5, Range("G" & Target.Row).Value + Target.Value, _
Range("G" & Target.Row).Value - Target.Value)

End If
' Range("E" & Target.Row).Value = 0
' Range("F" & Target.Row).Value = 0
'Protege
End Sub




Merci à vous.
Bonne Journée