Private Sub CommandButton1_Click()
If TextBox2.Value = "" Then
MsgBox ("VEUILLEZ entrer le nom du client")
Exit Sub
End If
If Not IsNumeric(TextBox4.Value) Then
MsgBox ("VEUILLEZ entrer un NOMBRE dans 'TOTAL HT'")
TextBox4.Value = ""
Exit Sub
End If
derligne = Range("B65535").End(xlUp).Row + 1
Cells(derligne, 1).Value = DTPicker1.Value
Cells(derligne, 2).Value = TextBox2.Value
Cells(derligne, 3).Value = TextBox3.Value
Cells(derligne, 4).Value = TextBox4.Value
Cells(derligne, 5).Value = TextBox5.Value
Cells(derligne, 6).Value = TextBox6.Value