Copier le contenu de plusieurs fichiers texte dans des cellules

Bonjour, voici mon problème :

J'ai plusieurs fichiers textes nommés de la même manière (seulement le numéro change a la fin) exemple : fichier1, fichier2 etc

J'aimerais copier le contenu de ces fichiers textes dans les cellules d'une colonne d'une de mes pages excel.

Pour l'instant voila le code que j'ai créé :

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" & i & ".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

Le problème c'est que lorsque j'éxécute le code les bonnes cellules sont ciblées mais rien n'est inséré à l'intérieur, de plus si j'ai déjà du texte présent dans les cellules concernées ça le supprime. Je ne comprends pas pourquoi, quelqu'un pourrait il m'éclairer ? merci :)

Bonjour Tuvan,

Je pense qu'il y a une erreur dans la variable utilisée pour le nom du fichier, ce n'est pas

MonFichier = "MonChemin\fichier" & i & ".txt"

mais

MonFichier = "MonChemin\fichier" & j & ".txt"

Sinon a quoi sert votre variable "j" !?

@+

En effet j'avais complétement oublié de modifier ceci, mais donc en modifiant par j, ça me retourne des valeurs dans les cellules que je veux mais ça me retourne des valeurs totalement différentes du contenu de mes fichiers textes je sais pas du tout à quoi ça correspond. Voila ce qui est retourné à l'éxécution de la macro :

Up, j'ai vraiment besoin d'aide la dessus je trouve rien nul part ...