Créer une macro pour afficher un message de confirmation

Bonjour,

Une piste avec le code suivant qui utilise OnKey

1) Copiez le code ci-dessous dans ThisWorkbook
'******************
Private Sub Workbook_Activate()
'---- Intercepte la touche Suppr ----
Application.OnKey "{DEL}", "PMO_Suppr"
End Sub

Private Sub Workbook_Deactivate()
'---- Retablit la touche Suppr ----
Application.OnKey "{DEL}"
End Sub
'******************

2) Copiez le code ci-dessous dans un module standard
'******************
Sub PMO_Suppr()
Dim i&
i& = MsgBox _
(prompt:="Voulez-vous vraiment effacer la plage sélectionnée?", _
Buttons:=vbOKCancel + vbDefaultButton2)
If i& = vbCancel Then Exit Sub
Range(Selection.Address).ClearContents
End Sub
'******************

Cordialement.

--
PMO
Patrick Morange

Bonjour,
quelqu'un connait-il une macro qui permette d'afficher un message de
confirmation avant suppression d'un élément (via la touche 'suppr' notamment)
dans une feuille Excel ?
Merci bien