Bonjour,
Je ne suis pas sur d'avoir compris mais j'ai fait ceci.
Est ce que ça vous convient?
Il faut le mettre le code suivant dans un module
Sub essai()
Dim r As String
Dim nvstock As Long
Dim qte As Long
'recherche de la référence dans la base
nvstck = Sheets("MENU").Range("F2").Value
r = Sheets("MENU").Range("F6").Value
Sheets("base").Select
ref = Range("B:B").Cells.Find(r).Address
'remplir la colonne E
qte = Range(ref).Offset(0, 3).Value
Range(ref).Offset(0, 3).Select
ActiveCell.Value = qte + nvstck
End Sub
Pour plus de clarté, je joins le fichier (je me suis permis de modifier la macro sur le second bouton valider du menu)
Cordialement