Maco enregistrer sous forma texte

Bonjour

j'ai réussi à affecter une macro à un bouton excel, afin d’enregistrer le fichier sous un nom indiqué dans une cellule.

ça fonctionne correctement .

Maintenant ce que je souhaite ajouter est que ce enregistrement se fait non pas sous forma excel mais sous format texte séparateur espaces

Est ce possible ?

Voici le code de la macro

' ---

' SELECTION D'UN DOSSIER

' ---

'

Sub SelectionDossier()

Dim fd As Office.FileDialog

' Créer un objet FileDialog

Set fd = Application.FileDialog(msoFileDialogFolderPicker)

' Titre de la boîte

fd.Title = "Sélectionnez un dossier..."

' Afficher la boîte et traiter le résultat

If fd.Show() Then

MsgBox "Vous avez sélectionné le dossier : " _

& vbCrLf & fd.SelectedItems(1), vbInformation

'nommer le fichier avec le contenu de la cellule L1.

nom = Range("L1")

ActiveWorkbook.SaveAs Filename:=fd.SelectedItems(1) & "\" & nom, FileFormat:=52, CreateBackup:=False

End If

Set fd = Nothing

End Sub