'Pour le bouton Nouveau contact
Private Sub CommandButton1_Click()
Dim L As Integer
L = Sheets("VENTE").Range("a65536").End(xlUp).Row + 1 'Pour placer le nouvel enregistrement à la première ligne de tableau non vide
Range("A" & L).Value = ComboBox1
Range("B" & L).Value = ComboBox2
Range("C" & L).Value = CDate(TextBox1)
Range("D" & L).Value = TextBox2
Range("E" & L).Value = TextBox3
'Range("H" & L).Value = ComboBox3
End Sub