Sortir de la macro, si... ?

Voici mon soucis, ce bout de macro (je n'ai pas tout mis) permet d'enregistrer un fichier dans un certains dossiers.

Le problème est que quand il y a un fichier qui porte le même nom, il me demande si je veux l'écraser, si oui pas de soucis, si non j'ai un bug de la macro.

J'aurais besoin d'un bout de code pour dire à la macro de sortir dans ce cas la. Merci pour votre aide.

    With Workbooks("bonjour")
    'With Workbook("bonjour.xlsx").Sheets("origine.xls")
    .SaveAs Filename:=chemin & nomfichier & " " & Format(Date, "dd-mm-yyyy") & _
extension, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    .Activate
    End With

Bonjour

En testant si le fichier existe

Fait à main levé (attention aux éventuelles erreurs)

    With Workbooks("bonjour")
  If Dir(chemin & nomfichier & " " & Format(Date, "dd-mm-yyyy") & extension)<>"" Then
    ' fichier existe 
    Exit Sub
  End If
    'With Workbook("bonjour.xlsx").Sheets("origine.xls")
   .SaveAs Filename:=chemin & nomfichier & " " & Format(Date, "dd-mm-yyyy") & _
extension, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    .Activate
    End With

Je dois tester demain, et je te dirais ça.