MSGbox apres saisie dans une cellule

Bonsoir le Forum,
J'ai besoin de votre aide, est il possible apres la saisie de la lettre "P" dans une plage de cellules A1:A20 ouvrir un MSGBox me disant "vous confirmez le paiement"
d'avance merci de votre aide
Cdt

Dans l'évènement Change de ta feuille

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub Worksheet_Change(ByVal Target As Range)   If Not Intersect(Target, Range("A1:A20")) Is Nothing Then If Target.Count = 1 Then If UCase(Target.Value) = "P" Then If MsgBox("Voulez vous confirmer le paiement", vbYesNo) = vbNo Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True End If End If End If End If End Sub

---

Merci beaucoup Mercatog :ccool:
Cdt
Tony