Private Sub CommandButton2_Click()
If TextBox4.Value = "" Or TextBox5.Value = "" Then
If TextBox4.Value = "" Then MsgBox "Vous avez oubliez de rentrer le Code"
If TextBox5.Value = "" Then MsgBox "Vous avez oubliez de renter la désignation de l'article"
Exit Sub 'sortie
End If
'confirmation INSERER UN NOUVEAU PRODUIT ?
If MsgBox("Veuillez confirmer INSERER ce nouveau produit ?", vbYesNo, "Demande de confirmation") <> vbYes Then Exit Sub
'suite insert ...
Dim L As Long
L = Sheets("BD").Range("a" & Rows.Count).End(xlUp).Row + 1 'Permet de se positionner sur la dernière ligne de tableau NON VIDE
MsgBox "le produit a bien été ajouté à la liste", vbInformation
End Sub