Private Sub CommandButton1_Click()
With Worksheets('SAISIES')
.Unprotect
.Range('A300').End(xlUp).Cells(2, 1) = ComboBox1.Text
.Range('B300').End(xlUp).Cells(2, 1) = TextBox1.Value
.Range('C300').End(xlUp).Cells(2, 1) = ComboBox2.Text
.Range('D300').End(xlUp).Cells(2, 1) = TextBox2.Value
.Range('E300').End(xlUp).Cells(2, 1) = TextBox3.Value
.Range('F300').End(xlUp).Cells(2, 1) = CDate(TextBox4.Value)
.Range('G300').End(xlUp).Cells(2, 1) = TextBox5.Value
.Range('L300').End(xlUp).Cells(2, 1) = CDate(TextBox6.Value)
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
.Activate 'pas obligatoire
End With
End Sub