Code pour bouton de suppression

salut tout le monde , voila je voulais creer un bouton de suppression mais ce code ne fonctionne pas je vais coller ce code

une petite correction svp s'il y a erreur

merci a vous

code :

Sub SUPPRIMER()

Dim reponse As String

MsgBox "Voulez Vous Supprimer ?", vbYesNoCancel + vbQuestion

If reponse = no Then Exit Sub

If reponse = Cancel Then Exit Sub

If reponse = Yes Then Selection.Delete Shift:=xlUp

End Sub

Salut

Sub SUPPRIMER()

If MsgBox("Voulez Vous Supprimer ?", vbYesNo + vbQuestion) = vbNo Then Exit Sub
Selection.Delete Shift:=xlUp

End Sub

Bonsoir,

Sub SUPPRIMER()
    Dim reponse As Integer
    reponse = MsgBox("Voulez Vous Supprimer ?", vbYesNoCancel + vbQuestion)
    If reponse = vbYes Then Selection.Delete xlShiftUp
End Sub

Cordialement.

merci bcp pour votre aide