Sub AjoutRef()
Dim derli As Long
derli = sheetss("stock").Columns(3).Find("*", , , , , xlPrevious).Row + 1
Sheets("modifier le stock").Range("C8:I8").Copy Sheets("stock").Range("C" & derli)
End Sub
Sub ModifQté()
Dim Col As Long
Col = Application.Match(Sheets("modifier le stock").Range("F22"), Sheets("stock").Range("F:F"), 0)
Sheets("stock").Range("G" & Col).Value = Sheets("modifier le stock").Range("I25").Value
End Sub