Ecrire le contenu d'une cellule dans un fichier texte

Bonjour,

Je vous sollicite car j'ai un tableau excel avec 5 colonnes et je voudrais écrire, pour chaque ligne, le contenu de la colonne 4 dans un fichier .txt dont le nom serait celui de la colonne 2.
la colonne 4 contient du texte et la colonne 2 des nombres entiers.
J'ai écrit un code qui a marché sur un autre tableau mais pour une raison que j'ignore cela ne marche pas cette fois-ci.

Sub Prog_Mails()

Dim nomfic, info As String
Dim chemin As String
Dim ligne, colonne As Integer

'Initialisation des constantes
Sheets("Feuil1").Select 'Remplacer "Feuil1" par le nom de la feuille Excel
chemin = "D:\corpus_mails\" 'Inscrire le chemin vers le dossier dans lequel les mails en .txt seront rangés

'Initialisation des variables
ligne = 0
ID = 2
Text = 4
'Recherche du nombre de lignes
Do
    ligne = ligne + 1
Loop Until Cells(ligne, 2) = ""
ligne = ligne - 1

'Ecriture dans les fichiers txt
For i = 1000 To ligne

    nomfic = Cells(i, ID)
    info = Cells(i, Text)

    Open chemin & nomfic & ".txt" For Append As i
    Print #i, info
    Close i
      
Next

End Sub

Merci d'avance pour vos réponses.