Sub Bouton_date()
Dim DL As Long
DL = Range("B" & Rows.Count).End(xlUp).Row + 1
Range(Cells(DL, 2), Cells(DL, 12)).Select
Selection.Merge
ActiveCell = Format(Date, "dddd dd mmmm yyyy")
ActiveCell.Interior.ColorIndex = 3
ActiveCell.Font.ColorIndex = 2
End Sub