Code bancal !

Bonjour le Forum,

je viens solliciter votre aide pour faire fonctionner correctement le code ci-dessous :

Private Sub CommandButton2_Click() 'Supprimer la Fiche'

Feuille_Chercher

Dim OuiNon As Integer
On Error GoTo Err_CommandButton2_Click

OuiNon = MsgBox("Attention ! Voulez-vous vraiment supprimer cette Fiche ?", vbYesNo)
If OuiNon = vbYes Then
Bonjour

Exit Sub
Else
Exit Sub
End If


Le code de Feuille_Chercher est le suivant :

Sub Feuille_Chercher() 'Sélectionner la Feuille'
Dim maFeuil As String
On Error GoTo GestErreur
maFeuil = InputBox(Prompt:="Taper le nom de la Fiche à supprimer. ")
Sheets(maFeuil).Select
Range("Q1").Select
Exit Sub
GestErreur:
MsgBox "Cette Fiche n'existe pas !"
End Sub

Exit_CommandButton2_Click:
Exit Sub

Err_CommandButton2_Click:
MsgBox Err.Description
Resume Exit_CommandButton2_Click
End Sub

Celui de "Bonjour" :

Sub Bonjour()
'
' Bonjour Macro
' Macro enregistrée le 20/02/2011 par Edmond
'

'
ActiveSheet.Unprotect
Range("D2").Select
ActiveCell.FormulaR1C1 = "Bonjour"
Range("A1").Select
ActiveSheet.Protect
End Sub

Précisions sur le problème de fonctionnement :
- lorsque la macro "Feuille_Chercher" est utilisée seule, si le nom de la feuille saisi est erroné, la boîte de dialogue "Cette fiche n'existe pas" s'affiche et la procédure se termine lorque l'on clique sur le bouton "OK".
- lorsqu'elle est insérée dans Private Sub CommandButton2_Click(), la procédure ne se termine pas lorque l'on clique sur le bouton "OK" et la boîte de dialogue "Attention : voulez-vous vraiment supprimer cette fiche ?" s'affiche.

Ma question est donc la suivante :
quelle correction faut-il apporter au code "Private Sub CommandButton2_Click()" pour que la procédure se termine et donc ne pas afficher la boîte de dialogue "Attention : voulez-vous vraiment supprimer cette fiche" lorsque la fiche cherchée n'existe pas ?


Je vous remercie pour vos conseils et vos réponses.
Cordialement.

Nonno 94.