XL 2019 Message d'erreur variable non définie

Sub sauvegarde_en_PDF()
    Dim NomDossier$
   Dim NomFichier$

    'Chemin Dossier déclaré en variable
    NomDossier = "C:\SOS\SAUVEGARDES\"
  
        
    'Désactiver les messages d'alertes
    Application.DisplayAlerts = False
  
  
    'On créé le nom du fichier de sauvegarde (Date + Nom)
    NomFichier = Format(Now + 0 / 24, "dd-mmm-yyyy hh""h""mm") & Range("E7") & "-" & Range("F7")

  

    Application.DisplayAlerts = False

  
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                                    NomDossier & NomFichier, Quality:=xlQualityStandard, _
                                    IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=1, _
                                    OpenAfterPublish:=False
    Windows("Impression pdf V3.xlsm").Activate
    Range("I7").Select
    ActiveWindow.Close
  

End Sub

   Windows("Impression pdf V3.xlsm").Activate