VBA - Création message box et listbox à cocher

Option Explicit
'mse déclenche au le clic droit, ce qui te permet de rentrer une date, ce qui n'était pas possible dans SelectionChange!!!
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
 If MsgBox("Etes-vous certain de vouloir enregistrer cette date ?", vbYesNo, "Demande de confirmation") = vbYes Then
     Application.EnableEvents = False
Cells(Target.Row, "A").Value = Date 'on met la date du jour  pour OUI
Application.EnableEvents = True
Else
Cells(Target.Row, "A").Value = "" 'on vide la cellule pour NON
    End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("O:P")) Is Nothing Then 'j'ai changé les colonne
ligne = Target.Row
End If
End Sub