[VB/VBA] Enregistrement d'un .txt en ANSI

Bonjour,

Voila tout est dans le titre.
A partir d'un code VB j'accede à un fichier Excel dans lequel le code VB appel une macro. A la fin de ma macro j'enregistre mon fichier Excel en Text avec:
..............................................................
'Enregistrement nouveau fichier
Application.WindowState = xlNormal
x = "programme corrige-"
nomdefaut = x

nomfichier = Application.GetSaveAsFilename(nomdefaut, fileFilter:="Text Files (*.txt), *.txt", Title:="Emplacement du nouveau programme")

If nomfichier = False Then
MsgBox "Enregistrement annulé."
Exit Sub
End If


ActiveWorkbook.SaveAs Filename:= _
nomfichier, FileFormat:= _
xlUnicodeText, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False



' signal qu'il n'y a pas lieu de sauvegarder
ThisWorkbook.Saved = True
ThisWorkbook.Close
'puis quitter l'appli
Application.Quit

..................................................
Tout fonctionne bien sauf que mon fichier créé est un .txt qui n'est pas encodé en ANSI...
Je ne trouve pas lemoyen de l'enregistrer sous un un encodage different.

Merci par avance de vos réponses