MsgBox Pour confirmation suppression valeures

Je souhaite ouvrir une boite de dialogue pour confirmer ou non la suppression d'une plage de valeurs.

Voici le code présent sur la feuille Récap qui doit supprimer sur la feuille Inventaire

Private Sub CommandButton1_Click()

 If MsgBox("Êtes-vous certain de vouloir remettre à zéro le tableau", vbYesNo, "Demande de confirmation") = vbYes Then

Sheets("Inventaire").Select
  Range("C8:F16,C20:F28,I8:L16").ClearContents
    Selection.ClearContents

     Range("A1").Select
        MsgBox "Le Tableau à bien été effacé !"
    End If
End Sub

Alors qu'avec un bouton classique vers macro enregistrée, ça marche

Sub RAZ()
'
' RAZ Macro
' Remise à zéro des Stocks

    Sheets("Inventaire").Select
    Range("C8:F16,C20:F28,I8:L16").ClearContents
     Range("A1").Select
End Sub

Merci

Trouvé

Private Sub CommandButton1_Click()

 If MsgBox("Êtes-vous certain de vouloir remtre à zéro le tableau de suivi", vbYesNo, "Demande de confirmation") = vbYes Then

' Remise à zéro des Stocks
  Worksheets("Inventaire").Activate
  Worksheets("Inventaire").Range("C8:F16,C20:F28,I8:L16").ClearContents

  MsgBox "Le Tableau à bien été effacé !"
    End If
End Sub