Private Sub CommandButtonOK_Click()
L = 1 + Range("C65500").End(xlUp).Row
Cells(L, "B") = Date
Cells(L, "C") = UserForm1.Cbreception
Cells(L, "D") = UserForm1.TextBoxqte
Cells(L, "E") = UserForm1.TextBoxlot
Cells(L, "F") = UserForm1.TextBoxperemption
End Sub