Bonjour
étant donné le manque d'info sur ton classeur, voici une méthode que tu dois adapter
Ici je sélectionne les arômes de la feuille calculateur, et je modifie le stok en recherchant l'arôme.
Je ne traite pas si l'arôme n'existe pas.
Sub stock()
Set aromes = Selection
For Each a In aromes
quantité = a.Offset(0, 2).Value
Set stocka = Sheets("liste_arômes").Columns(2).Find(a)
stocka.Offset(0, 7).Value = stocka.Offset(0, 7).Value - quantité
Next
End Sub