XL 2010 Insérer date à pâtir d'un bouton

[floflo35]

Bonjour à tous,
Débutant en vba, je souhaiterais iscrire la date du jour dans la derniere cellule vide quand je clique sur le bouton date en fusionant les cellules B à M sur une seule ligne avec mise en forme fond rouge et date en blanc et caractere gras.

Je vous remercie

 

[M12]

Bonjour,

A mettre dans ton bouton date

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