Insertion automatique de la date avec un bouton

Hello,

Je voudrai savoir comment on procède pour ajouter une date et l'heure via un bouton dans une cellule.

Et, aussi, aller la ligne en dessous pour pourvoir recliquer sur le bouton pour ajouter une nouvelle date et heure ...

Voici le schéma que je vois :

Colonne A

11/03/2019 - 22h19

11/03/2019 - 22h30

Merci de votre aide

Bonjour,

Un exemple.

Cdlt

Public Sub AddDateAndHour()
Dim n As Long
    With ActiveSheet
        n = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
        .Cells(n, 1).Value = VBA.Now
    End With
End Sub

Super !

Merci !