Private Sub VALIDER_Click()
Dim DerLign As Long
'Écrire dans la feuille recap
With Sheets("Recap palettes Europes")
'Trouve la dernière ligne
DerLign = .Range("A65000").End(xlUp).Row + 1
DerLign = WorksheetFunction.Max(DerLign, 13) 'à cause des cellules fusionnées. À EVITER!!
Debug.Print DerLign
.Cells(DerLign, "A") = Format(DateSaisie.Value, "mm/dd/yyyy")
.Cells(DerLign, "B") = Me.TextBox2.Text 'Livrees
.Cells(DerLign, "D") = Me.TextBox3.Text 'Rendues
.Cells(DerLign, "F") = Me.TextBox4.Text 'Bordereau
End With
'Effacer les textbox
With Me
.TextBox2 = ""
.TextBox3 = ""
.TextBox4 = ""
.TextBox2.SetFocus 'Optionnel, retourne au textbox2 après la validation
End With
End Sub