Private Sub CommandButton1_Click()
Dim noLigne As Long ' numérique !
Dim Ws1 As Worksheet
'copie les données dans le tableau
With Sheets("stock")
noLigne = .Range("a65000").End(xlUp).Row + 1
.Cells(noLigne, 1) = CDate(dateBox)
.Cells(noLigne, 1).NumberFormat = "m/d/yyyy"
.Cells(noLigne, 2) = TextBox1.Value
.Cells(noLigne, 3) = UCase(TextBox3.Value) 'Ucase met en majuscule
.Cells(noLigne, 4) = UCase(LotBox.Value)
.Cells(noLigne, 5) = CDbl(masseBox.Value)
End With
Worksheets("bilan").Select
ActiveWorkbook.RefreshAll
Unload Me
End Sub