Encodage d'un fichier de sortie d'une macro

Hello,

J'ai une petite macro qui me crée un fichier de sortie en fonction des données d'une feuille Excel

Le code fonctionne parfaitement, seul problème, mon fichier de sortie, quand je fais file -I dans le terminal, est reconnu avec un charset un peu bizarre. En gros ça me dit que c'est du

text/plain; charset=unknown-8bit

Il y a possibilité de spécifier un encodage particulier? Sachant que après, ce fichier, appelons le FICIN, passera dans un programme, qui va créer un fichier de sortie FICOUT en utf-8, qui lui même repassera dans une macro excel pour un traitement ultérieur.

Merci d'avance pour votre aide!

Vincent

Le code est le suivant

Sub fichier()

'---- Déclaration des variables

Dim chemin As String
Dim m As String
Dim ecriture_ligne As String
NomFichier = Sheets("Général").Cells.Range("B3").Value
NbLignesDetails = Sheets("Général").Cells.Range("B4").Value
'Dim LigneSeparation As String
'LigneSeparation = "############"
Const LigneSeparation As String = "################"

'---- Génération du fichier texte

'---- On récupère le Path
'chemin = ActiveWorkbook.Path

'---- On "formate" le path en format Mac
chemin = ActiveWorkbook.Path & Application.PathSeparator
'chemin = Replace(chemin, ":", "/")
m = chemin & NomFichier & ".txt"
Reponse = MsgBox(m)

Open m For Output As #1

   '---- Vérification du champ nom du fichier
        If NomFichier = "" Or NomFichier = " " Or NomFichier = "  " Then
        Reponse2 = MsgBox("Le nom du fichier n'est pas renseigné.", vbOKOnly + vbCritical, "Nom du fichier non rensigné")
        GoTo Erreur
        End If

    '---- Vérification du champ nombre de lignes détails

        If NbLignesDetails = "" Then
        Reponse0 = MsgBox("Le nombre de lignes détails souhaitées n'est pas renseigné.", vbOKOnly + vbCritical, "Nombre de ligne non renseigné")
        GoTo Erreur
        End If

'---- Ecriture du fichier

        'j=colonne
        'k = ligne

        For K = 2 To NbLignesDetails + 1
        For J = 1 To 8
        'Print #1, Sheets.Item(2).Cells(k, j).Value
        Print #1, Trim(Sheets.Item(2).Cells(K, J).Value)
        Next J
        Print #1, LigneSeparation
        Next K

'---- Fermeture du fichier
    Close #1

Erreur:
Close #1
End Sub