Ajouter et soustraire d'une autre feuille

Bonjour,
j'ai deux papiers
Feuille 1- Oldstock 2021-2022
Il contient des informations sur l'entrepôt

Feuille 2- Transaction
Question 1:
À propos des informations que nous avons obtenues du premier article
Nous avons deux processus : la vente (Sale) et le retour (retrieval) et la quantité vendue ou rendue
Après avoir mis la quantité vendue, je veux faire une confirmation afin de transférer NEWSTOCK à Quantité en stock de la premiere feuille.

Question 2:
2- Comment ajouter la date automatiquement chaque fois que j'ajoute une nouvelle ligne
Je le mets maintenant () mais comment est-il écrit automatiquement

Le fichier est attaché.
Merci.

Bonjour et bienvenue sur le forum

Un essai à tester. Te convient-il ?

Option Explicit

Dim fo As Worksheet
Dim ln&, x!, s&

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Cells.CountLarge > 1 Then Exit Sub

    If Target.Row > 2 And Target.Column = 7 Then
        Application.EnableEvents = False
        Set fo = Sheets("OldStock2021-2022")
        If Range("B" & Target.Row) <> "" And Range("F" & Target.Row) <> "" Then
            ln = WorksheetFunction.Match(Target.Offset(0, -5), fo.Range("C:C"), 0)
            x = fo.Cells(ln, 5) 'Stok initial sur la feuille OldStock2021-2022
            Cells(Target.Row, 3) = fo.Range("D" & ln)       'Description
            Cells(Target.Row, 4) = fo.Range("G" & ln)       'Prix
            Cells(Target.Row, 5) = x                        'Stock initial
            s = IIf(Target.Offset(0, -1) = "sale", -1, 1)   'sens du mouvement = 1 pour retour,-1 pour vente
            Cells(Target.Row, 9) = Target.Value * s + x     'Stock final
            fo.Range("E" & ln) = Target.Value * s + x       'Nouveau stock mis à jour
            Range("A" & Target.Row) = Date                  'ou = Now si on veut l'horodate
        Else
            MsgBox "Saisies incomplètes.", 16
            Exit Sub
        End If
    End If
    Application.EnableEvents = True
End Sub

Bye !

Merci beaucoup

Meme si j'ai changé l'idee toute entière, mais la solution offerte est superbe!

Une astuce peut etre : Comment puis-je proteger les cellules de quantité afin de ne pas pouvoir les changer manuellement?
Si je fais LOCK on ne peut pas les mettre a jour autoomatiquement.. MErci

Bonjour

Nouvelle version

Bye !