Variable objet ou bloc "with" non définie

Bonjour,

j'arrive à la fin d'un projet VBA et me voilà bloqué par l'erreur :
Erreur d'exécution '91' :
Variable objet ou bloc With non défnie.

J'ai cherché sur internet sans vraiment trouvé de solution :/

Voici le code en question :
Il s'agit d'enregistre une feuille du fichier au format .txt en demandant à l'utilisateur l'endroit où il souhaite enregistre le fichier .txt

Sub EcrireTxt1()

'demander à l'utilisateur de sélectionner un dossier pour l'enregistrement

'Variable
Dim boiteDialogue As FileDialog
Dim chemin_dossier As String
Dim fichier As Worksheets


'demander à l'utilisateur de sélectionner un dossier
Set boiteDialogue = Application.FileDialog(msoFileDialogFolderPicker)
boiteDialogue.AllowMultiSelect = False      'Bloque la sélection de plusieurs dossiers
boiteDialogue.Title = "Merci de choisir un dosser"
boiteDialogue.Show

'Vérifier qu'un dossier a été sélectionné
If boiteDialogue.SelectedItems(1) = "" Then
    MsgBox ("Merci de sélectionner un dossier")
Else
    'Trouver le chemin du dossier
    chemin_dossier = boiteDialogue.SelectedItems(1)
End If

'J'active la feuille d'export
Worksheets("Export").Activate

'J'enregistre le fichier à l'endroit choisi auparavant
fichier.SaveAs chemin_dossier, FileFormat:=21

'J'informe l'utilisateur de l'enregistrement
MsgBox ("La feuille Export a été enregistré à l'adresse :" & chemin_dossier)

End Sub
Configuration: Windows / Chrome 92.0.4515.131

L'erreur a lieu sur la ligne "fichier.SaveAs"

Merci pour votre aide :)