Erreur sur bouton annulé

Bonjour le forum

Avec votre aide je me suis fait un ptit prog pour ma comptabilité(Merci)
J'ai juste un bug avec mon inputBox du début
Si j'entre rien et presse Ok = MsgBox "Entrer un nom"...là ca va

Mais si je fait annuler sur inputBox.....voici mon bug il me sauvegarde quand même un fichier et le nomme "Faux".J'aimerais si possible que si je fait annulé il ferme seulement "inputBox"

Voici le Demon:

Private Sub CommandButton3_Click()
Dim Nom_Fichier
Debut:
Nom_Fichier = Application.InputBox(prompt:="*Entrez le No de la nouvelle facture*")

If Nom_Fichier = "" Then
MsgBox "Entrer un nom"
GoTo Debut

Else
Sheets("Model").Select
Sheets("Model").Copy

ActiveWorkbook.SaveAs FileName:= _
"C:\Program Files\Factures 2004.1.1\Factures\" & Nom_Fichier & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

MsgBox "Votre facture sera créer dans le répertoire: C:\Program Files\Factures 2004.1.1\Factures\"
YesNo = MsgBox("Voulez-vous faire une autre facture ?", vbYesNo + vbQuestion, "Caution")
Select Case YesNo
Case vbYes
'Effacer
ActiveWorkbook.Close
Sheets("Model").Select
Range("A12:G51,G9,B6,B7,B8").Select
Range("B8").Activate
Selection.ClearContents
Range("A11").Select

For compteur = 1 To 45
UserForm3.Controls("textbox" & compteur).Value = ""
Next compteur
Case vbNo
ActiveWorkbook.Close
Sheets("Model").Select
Range("A12:G51,G9,B6,B7,B8,G7").Select
Range("B8").Activate
Selection.ClearContents
Range("A11").Select
For compteur = 1 To 45
UserForm3.Controls("textbox" & compteur).Value = ""
Next compteur

UserForm3.Hide

End Select
End If

End Sub

Merci de votre aide

Temjeh

A++