[COLOR=blue]Sub[/COLOR] Ajout3()
[COLOR=blue]Dim[/COLOR] Var [COLOR=blue]As Date[/COLOR]
Var = TextBox_date
Var = Format(Var, "dd/mm/yyyy")
[COLOR=blue]With[/COLOR] Sheets("BOS_Autres").Cells(Sheets("BOS_Autres").Cells(Rows.Count, "A").End(xlUp).Row + 1, "A")
.NumberFormat = "dd/mm/yyyy"
.Value = Var
[COLOR=blue]End With[/COLOR]
[COLOR=blue]End Sub[/COLOR]