Extraire txt dans une feuille => pb caractère spéciaux

Bonjuour,

J'ai un souci pour extraire un fichier .txt dans une feuille excel.

Les caractère "é" se transforme en é

Pourriez vous m'aider svp

Voici mon code

Sub Nouvellefeuille2()

    Dim feuille As Worksheet
    Dim Fichiertxt As Variant
    Dim ShtD As Worksheet
    'Définir Variables
    Dim der_ligne As Integer: Dim der_colonne As Integer
    Dim Ligne As Integer: Dim Colonne As Integer
    Dim der_ligne2 As Integer
    Dim der_ligne3 As Integer

    'Tester existence feuille
    Application.DisplayAlerts = False
    On Error Resume Next
    Sheets("Contrôles Référentiel").Delete
    On Error GoTo 0
    Application.DisplayAlerts = True

    Sheets.Add after:=Sheets(Sheets.Count)   'nouvelle feuille vierge
    Set feuille = ActiveSheet                'assignation feuille active
    feuille.Name = "Contrôles Référentiel"

    MsgBox ("Veuillez selectionner le fichier .txt des contrôles extrait depuis le référentiel")
    Fichiertxt = Application.GetOpenFilename("Text Files (*.txt), *.txt")
    If Fichiertxt <> False Then
        With feuille.QueryTables.Add(Connection:="TEXT;" & Fichiertxt, Destination:=Range("A1"))
            .Name = nom
            .FieldNames = True
            .PreserveFormatting = True
            .SaveData = True
            .AdjustColumnWidth = True
            .TextFileStartRow = 1
            .TextFileParseType = xlDelimited
            .TextFileSemicolonDelimiter = False
            .Refresh BackgroundQuery:=False
        End With
        Else: Exit Sub
    End If

End Sub

Voici le fichier .txt

Bonjour

C'est de l'unicode donc il faut la préciser à l'ouverture
Origin:=65001

Bonsoir,

Merci mais je n'ai pas reussi

Sub Nouvellefeuille2()

    Dim feuille As Worksheet
    Dim Fichiertxt As Variant
    Dim ShtD As Worksheet
    'Définir Variables
    Dim der_ligne As Integer: Dim der_colonne As Integer
    Dim Ligne As Integer: Dim Colonne As Integer
    Dim der_ligne2 As Integer
    Dim der_ligne3 As Integer

    'Tester existence feuille
    Application.DisplayAlerts = False
    On Error Resume Next
    Sheets("Contrôles Référentiel").Delete
    On Error GoTo 0
    Application.DisplayAlerts = True

    Sheets.Add after:=Sheets(Sheets.Count)   'nouvelle feuille vierge
    Set feuille = ActiveSheet                'assignation feuille active
    feuille.Name = "Contrôles Référentiel"

    MsgBox ("Veuillez selectionner le fichier .txt des contrôles extrait depuis le référentiel")
    Fichiertxt = Application.GetOpenFilename("Text Files (*.txt), *.txt")
    If Fichiertxt <> False Then
        With feuille.QueryTables.Add(Connection:="TEXT;Origin:=65001" & Fichiertxt, Destination:=Range("A1"))
            .Name = nom
            .FieldNames = True
            .PreserveFormatting = True
            .SaveData = True
            .AdjustColumnWidth = True
            .TextFileStartRow = 1
            .TextFileParseType = xlDelimited
            .TextFileSemicolonDelimiter = True
            .Refresh BackgroundQuery:=False
        End With
        Else: Exit Sub
    End If
    

A quel endroit faut il ajouter

Origin:=65001

RE

J'avais mal lu. Ajoute

    .TextFilePlatform = 65001

Sous le With

Merci ! parfait :)