Private Sub ENREGISTRER_Click()
If Not IsDate(TextBox2) Then
MsgBox "Format de date incorrect"
TextBox2 = ""
Exit Sub
End If
'--- Positionnement dans la base
ligne = Sheets("SAISIE").[A65000].End(xlUp).Offset(1, 0).Row
'--- Transfert Formulaire dans SAISIE
With Sheets("SAISIE")
.Cells(ligne, 1) = Me.ComboBox1
.Cells(ligne, 2) = Me.ComboBox2
.Cells(ligne, 3) = Me.ComboBox3
.Cells(ligne, 4) = Me.TextBox1
.Cells(ligne, 5) = Format(Me.TextBox2, "mmm.yy")
.Cells(ligne, 6) = Me.ComboBox4
.Cells(ligne, 7) = Me.TextBox3
.Cells(ligne, 8) = Val(Me.TextBox4)
.Cells(ligne, 9) = Val(Me.TextBox5)
End With
End Sub