' Ajouter une nouvelle entrée
Private Sub CommandButton1_Click()
Dim cel
Set cel = Range("tableau1").Columns(1).Find(what:=TextBox1.Text, LookIn:=xlValues, lookat:=xlWhole)
If Not cel Is Nothing Then MsgBox " Ce code est déjà attribué à" & Cells(1, 2).Value: TextBox1.SetFocus: Exit Sub
With Range("Tableau1").ListObject.ListRows.Add.Range
.Value = Array(TextBox1, TextBox2, TextBox3, CDate(TextBox4), TextBox5, TextBox6, TextBox7, CDate(TextBox8), CDate(TextBox9), TextBox10, TextBox11, _
TextBox12, TextBox13, TextBox14, TextBox15, TextBox16, TextBox17, TextBox18, TextBox19, TextBox20, TextBox21, TextBox22, _
TextBox23, TextBox24, TextBox25, TextBox26, TextBox27, TextBox28, TextBox29, TextBox30, TextBox31, TextBox32, TextBox33)
End With
End Sub