Ouvrir .txt pour enregistrer en .csv

Bonjour tout le monde!

Je depuis ce matin sur un bout de code qui à pour but d'enregister plusieurs feuilles de mon classeur en .txt (jusque là, tt va bien!), puis d'ouvrir ces fichiers .txt pour les sauver en .csv (là c'est le drame). Apparament le chemin recomposé des fichiers .txt à ouvrir n'est pas bon... poutant mon code me semble logique... là je sais plus trop quoi faire!
Le code que j'utilise est le suivant :

Sub Macro2()

Dim Nom As String, chemin, Nom2, Texte, CSV As String 'Déclaration des variables (chemins des fichiers à manipuler)

Nom = ActiveWorkbook.Name
Nom = Replace(Nom, '.xls', ' ')
chemin = ThisWorkbook.Path & '\\' & Nom
Texte = '.txt'
CSV = '.csv'

For i = 5 To 10 'Enregistrement des feuilles 5 à 10 en .txt puis en .csv
Sheets(i).saveas Filename:=chemin & Sheets(i).Name, FileFormat:=xlTextWindows

Nom2 = chemin & Sheets(i).Name 'chemin du fichier .txt à ouvrir

Workbooks.OpenText Filename:=Nom2 & Texte, Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1)), TrailingMinusNumbers:=True
ActiveWorkbook.saveas Filename:=Nom2 & CSV, FileFormat:=xlCSV, CreateBackup:=False
ActiveWindow.Close savechanges:=False

Next i

ActiveWindow.Close savechanges:=False
End Sub