Retour de caractères "bizarres" lors de l'éxécution d'une macro

Bonjour, j'ai un retour de caractères très étranges lorsque j'éxécute ma macro, quelqu'un aurait une idée d'ou ca pourrait provenir ? Ma macro est sensée récuperer des lignes de fichiers textes pour les remplir automatiquement dans les cellules correpsondantes, à la place j'ai ce retour avec ces caractères spéciaux :

Ma macro :

Public Function LireFichierTexte(ByVal MonFichier As String) As String

    On Error GoTo LireFichierTexteErreur
    Dim IndexFichier As Integer
    IndexFichier = FreeFile()
    Open MonFichier For Binary Access Read As #IndexFichier
    LireFichierTexte = Space$(LOF(IndexFichier))
    Get #IndexFichier, , LireFichierTexte
    Close #IndexFichier

    Exit Function
LireFichierTexteErreur:
    Close #IndexFichier
    LireFichierTexte = ""
End Function

Sub ImportUpload()

    On Error GoTo TestErreur
    Dim ContenuFichier As String
    Dim MonFichier As String
    Dim i As Long, j As Long
    last = Range("D10000").End(xlUp).Row

    j = 1
    For i = 4 To last

    MonFichier = "MonChemin\fichier" & j & ".txt" 'l'emplacement et le nom du fichier texte
    ContenuFichier = LireFichierTexte(MonFichier) 'appelle la fonction "LireFichierTexte"

    Cells(i, 3).Value = ContenuFichier 'affiche le contenu du fichier

    j = j + 1
    Next i
    Exit Sub

TestErreur:
    MsgBox "Le fichier n'a pas pu être lu..."

End Sub

Bonjour,
Merci de joindre un fichier txt pour une aide adaptée du forum.
Cdlt.

Bonjour,

vérifie le code caractères utilisé dans ton fichier (il ne s'agit probablement de ascii, mais unicode ou autre) si tu utilises une lecture en mode binaire tu devras gérer toi-même la conversion.

Voici un exemple de fichier avec son contenu que j'aimerais insérer :

En effet h2so4, je viens de vérifier, mon fichier texte est en utf-16 LE, que dois-je donc faire ?

Bonjour,

ceci fonctionne chez moi (windows 10)

Public Function LireFichierTexte(ByVal MonFichier As String) As String
    'On Error Resume Next
    With CreateObject("scripting.filesystemobject")
    With .opentextfile(MonFichier, , , -2)
    LireFichierTexte = .readall
        .Close
    End With
    End With
    'On Error GoTo 0

End Function