re
j'ai mis cette procédure dans le bouton K adaptes la procédure
Private Sub CommandButton2_Click()
Dim derlgn As Integer
Dim maplage As Range
Dim cel As Range
With Worksheets('STOCK')
.Select
derlgn = .Range('A1000').End(xlUp).Row
Set maplage = .Range('B2:B' & derlgn)
For Each cel In maplage
Select Case cel.Value
Case Is = UserForm3.ComboBox2.Value
cel.Offset(0, 1) = cel.Offset(0, 1) + TextBox1.Value
Case Is = UserForm3.TextBox2.Value
cel.Offset(0, 2) = cel.Offset(0, 2) - TextBox1.Value
End Select
Next
End With
End Sub