Exécution interrompue pour macro

Bonjour à tous,

Il y a quelques temps, j'ai créé une macro qui permet que lorsque l'on appuie sur un bouton, certaines cellules s'effacent. Cependant je viens de me rendre compte que maintenant à l'appui de ce bouton, la macro fonctionne mais m'affiche l'erreur "Exécution interrompue".

Que faut-il faire pour que ce message cesse d'apparaître ?

Voilà les codes :

1ère macro :

Sub DGeffacer()

    If MsgBox("Etes-vous certain(e) de vouloir supprimer le contenu  ?", vbYesNo, "Demande de confirmation") = vbYes Then
        Range("Contenu1").ClearContents
        MsgBox "Le contenu a été effacé !"
    End If
    
End Sub

Erreur sur la 2ème MsgBox

2ème macro :

Même code pour une autre feuille mais cette fois erreur sur "End If"


Merci de m'aider


PS : Sous Excel 2007 / "Contenu1" étant une plage de données