Private Sub IncrementMat_Click()
Dim Val As Double
Dim tps As Date
tps = Date
Val = Sheets("Feuil1").Range("L6").Value
ActiveSheet.OLEObjects("IncrementMat").Enabled = False
Sheets("Feuil1").Range("L6").Value = Sheets("Feuil1").Range("L6").Value + 1
Set ws = Sheets("Feuil3")
i = ws.Cells(Rows.Count, 1).End(xlUp).Row + 1
ws.Cells(i, 4).Value = TextBox1.Value
ws.Cells(i, 2).Value = TextBox2.Value
ws.Cells(i, 3).Value = TextBox3.Value
ws.Cells(i, 1).Value = Val
ws.Cells(i, 5).Value = tps
End Sub