Private Sub validerBouton_Click()
Dim madate As Date
'Recopie les données vers la BDD
madate = dateBox.Value
Sheets("Saisie").Range("A1").NumberFormat = "m/d/yyyy"
Sheets("data").[A2:A368].NumberFormat = "m/d/yyyy"
'L'inversion survient quand une valeur contenant une date est transférée vers une cellule, le format de celle-ci étant de type Date et la valeur étant de type String, ou l'inverse.
'Pour éviter tout risque d'inversion Jour/Mois, il y a FormulaLocal
Sheets("Saisie").Range("A1").FormulaLocal = madate
lig5 = Application.Match(Sheets("Saisie").Range("A1"), Sheets("data").[A1:A368], 0)
If IsError(lig5) Then MsgBox "date non trouvée": Exit Sub
Sheets("data").Cells(lig5, 2) = commentairesBox.Value
'Incrémente de 1 la date
madate = madate + 1
Sheets("Saisie").Range("A1").FormulaLocal = madate
dateBox.Value = madate
End Sub