Archivage facture

Option Explicit
'Déclaration des variables
Dim NomDossier As String
Dim CheminDossier As String
Private Sub CommandButton1_Click()
Archivage
End Sub
Sub Archivage()
'Nom de dossier
NomDossier = Application.InputBox("Dossier Enregistrement :", "Dossier")
CheminDossier = "D:\Mes documents\Excel\Facture\" & NomDossier & "\"
TesteSiDossierExiste
Application.DisplayAlerts = False 'On désactive les messages d'alerte
If Range("F9").Value = "" Then 'On test que le numéro de facture à bien été saisie
MsgBox "Vous n'avez pas saisie le N° de facture ." & vbCrLf & " Meci de faire le nécessaire.", vbCritical, "Sauvegarde"
Else ' SINON
With ActiveWorkbook ' Enregistrement du classeur portant le N° de la cellule F9
.SaveAs Filename:=CheminDossier & Range("F9").Value & ".xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End With
' On affiche un message informant que le fichier a bien été sauvegardé.
MsgBox "Fichier sauvegardé", vbInformation, "Enregistrement"
End If
Application.DisplayAlerts = True 'On réactive la gestion des alertes.
End Sub
'https://excel-malin.com/codes-sources-vba/vba-verifier-si-dossier-existe/
Sub TesteSiDossierExiste()
'par Excel-Malin.com ( https://excel-malin.com )
Dim MonDossier As String
MonDossier = CheminDossier
If DossierExiste(MonDossier) = True Then
        MsgBox "Le dossier existe..."
    Else
       MkDir (CheminDossier) ' on crée le dossier
    End If
End Sub
Public Function DossierExiste(MonDossier As String)
'par Excel-Malin.com ( https://excel-malin.com )
 If Len(Dir(MonDossier, vbDirectory)) > 0 Then
      DossierExiste = True
   Else
      DossierExiste = False
   End If
End Function