Private Sub BtnAjout_Click()
Dim Derligne As Long
With Sheets("STOCK")
Derligne = .Range("A2").End(xlDown).Row + 1
.Cells(Derligne, 1) = CDate(LabelDate)
.Cells(Derligne, 2) = Ambrée75
.Cells(Derligne, 3) = Ambrée33
.Cells(Derligne, 4) = Ambrée15
.Cells(Derligne, 5) = Ambrée20
' ActiveCell.Offset(0, 7).Value = Blanche75
' ActiveCell.Offset(0, 8).Value = Blanche33
'
' ActiveCell.Offset(0, 11).Value = Blonde75
' ActiveCell.Offset(0, 12).Value = Blonde33
' ActiveCell.Offset(0, 13).Value = Blonde15
' ActiveCell.Offset(0, 14).Value = Blonde20
'
' ActiveCell.Offset(0, 17).Value = Blanchesureau75
' ActiveCell.Offset(0, 18).Value = Blanchesureau33
'
' ActiveCell.Offset(0, 21).Value = Dubble75
' ActiveCell.Offset(0, 22).Value = Dubble33
'
' ActiveCell.Offset(0, 25).Value = Ipa75
' ActiveCell.Offset(0, 26).Value = Ipa33
' ActiveCell.Offset(0, 27).Value = Ipa15
'
' ActiveCell.Offset(0, 30).Value = Seigle75
' ActiveCell.Offset(0, 31).Value = Seigle33
' ActiveCell.Offset(0, 32).Value = Seigle15
' ActiveCell.Offset(0, 33).Value = Seigle20
End With
End Sub