Private Sub btn_enregistrer_Click()
'récupérer la dernière ligne de la BDD
Dim ligneCourante As Integer
Dim celluleCourante As Excel.Range
Set celluleCourante = ThisWorkbook.Sheets("BDD").Range("A1")
Do While celluleCourante.Value <> ""
Set celluleCourante = celluleCourante.Offset(1, 0)
Loop
ligneCourante = celluleCourante.Row
'écrire les infos
With ThisWorkbook.Sheets("BDD")
.Range("A" & ligneCourante) = Me.txt_nomProduit.Text
.Range("B" & ligneCourante) = Me.txt_val1.Text
.Range("C" & ligneCourante) = Me.txt_val2.Text
.Range("D" & ligneCourante) = Me.txt_val3.Text
End With
'effacer le nom du produit
Me.txt_nomProduit.Value = ""
Me.Hide
End Sub