Private Sub supprimer_Click()
If mynom.Text = "" Then Exit Sub
If code = "" Then Exit Sub
rep = MsgBox("Supprimer: " & mynom.Text, 4 + 32, "SUPPRIMER CET ARTICLE")
If rep = vbNo Then Exit Sub
For k = 2 To Feuil5.[B65000].End(3).Row
If Feuil5.Cells(k, 1).Value = Val(code.Text) Then
Feuil5.Rows(k).Delete
Exit For
End If
Next
mynom.Text = ""
mesnoms
ThisWorkbook.Save
End Sub