XL 2010 Boutton de confirmation avant suppression

Sub testEfface()
Dim n As Integer
Lp_début:
    n = Application.InputBox("Tapez le code numérique de l'établissement : ", "Code Etablissement:", Type:=1)
    If n = 0 Then Exit Sub
    If n = Sheets("Index").Index Or n > Worksheets.Count Then
      MsgBox "Code inconnu .", vbCritical
      GoTo Lp_début
    End If
    If MsgBox("Confirmer l'effacement de " & Worksheets(n).Name, vbYesNo + vbDefaultButton2) <> vbYes Then Exit Sub
    With Worksheets(n).Range("A5:W9")
      .Resize(.End(xlDown).Row - .Row + 1).ClearContents
    End With
    Sheets("Index").Activate
    Range("A1").Select
End Sub