Effacer cellules de 2 pages avec une msgbox

Bonjour,

J'ai des cellules à effacer dans plusieurs pages de mon classeur.

J'utilise une msgbox mais je n'arrive pas à effacer les cellules d'une autre page.

PS : il se pourrait que la page non active (Feuil2) soit masquée ou non masquée. Le commentaire du code VBA indique juste l'action d'effacement que je souhaiterai, mais cette ligne ne fonctionne pas.

'EFFACEMENT DES VALEURS DE 2 PAGES
Sub BtnEffacerDonnees()
   If MsgBox("Etes-vous certain de vouloir supprimer le contenu  ?" & Chr(10) & "ATTENTION ! CETTE ACTION EST IRRÉVERSIBLE.", vbYesNo + vbCritical, "Demande de confirmation") = vbYes Then
        Range("F7:F8,F11,F13:F14").ClearContents
        'Sheets("Feuil2").Range("F5").ClearContents -> Cette commande ne fonctionne pas
        MsgBox "Le contenu a été effacé !"
   End If
End Sub

Je joins mon fichier dans ce post.

Merci pour votre aide.

François

Toutes mes excuses. Le problème venait de 2 cellules fusionnées (F5:G5) dans mon fichier de travail.

Désolé de vous avoir sollicité pour rien et merci du temps passé pour me venir en aide.

Bonne soirée.

François