Bouton conversion tableau Excel fichier txt

Bonjour à tous,

De retour sur ce forum qui me sauve souvent la vie.

Pour des besoins particuliers, j'ai créé un fichier excel sur lequel je remplis des colonnes et en appuyant sur un bouton, le fichier se converti en fichier txt, et les colonnes sont séparées par des points virgules.

La macro que j'ai créée me le permet, sauf que pour la dernière ligne, il n'y a qu'une seule colonne remplie. Et le fichier converti ajoute 4 points virgules. Je souhaiterai qu'il n'en mette qu'un seul, et je n'y parviens pas.

Private Sub Formattxt_Click()

Dim Plage As Variant

Dim i As Long

Dim j As Byte

Dim Resultat As String

Dim Tableau As Variant

Set Plage = Sheets("Feuil1").UsedRange.Cells

Tableau = Plage

fFilename = _

Application.GetSaveAsFilename(InitialFileName:="MAJ_OG_ALLCTN_JJMMAA_HHMM", _

fileFilter:="Text Files (*.txt), *.txt")

Open fFilename For Output As #1

For i = 1 To UBound(Tableau, 1)

For j = 1 To UBound(Tableau, 2)

Resultat = Resultat & Tableau(i, j) & ";" 'adaptez le separateur

Next

Resultat = Left(Resultat, Len(Resultat) - 0)

Print #1, Resultat

Resultat = ""

Next

Close #1

End Sub

En pièce joint les fichiers pour mieux comprendre.