Macro pour créer .CSV d'au moins 30 colonnes

Re : Macro pour créer .CSV d'au moins 30 colonnes

Bonjour,
Je me permet de re-ouvrir ce debat pour mon probleme personel car j'ai repris une partie du code qui me semble tres bien...
Je souhaite pouvoir exporter d'un fichier excel 2 fichiers csv qui correspondent respectivement a 2 colonnes distinctes de mon fichier d'origine (sous Excel 2010):
Colonne H6 - H65536 (jusqu'a vide) > fichier1.csv
Colonne I6 - I65536 (jusqu'a vide) > fichier2.csv

En utilisant ce code j'ai un bug sur mon fichier1.csv qui concatene les 2 colonnes :-(

Pouvez vous m'aider SVP ?
Merci.

Private Sub export_en_CSV(Feuille$, Chemin$, NomFichier_EXPORT$)
Dim fs, a, s$, r&, c&
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(Chemin & NomFichier_EXPORT & ".csv", True)
With ThisWorkbook.Sheets(Feuille)
For r = 6 To .[I65536].End(xlUp).Row
s = "": c = 9
While Not IsEmpty(.Cells(r, c))
s = s & .Cells(r, c)
c = c + 1
Wend
a.writeline s
Next r
End With
End Sub
Private Sub export_en_CSV_SANRA(Feuille$, Chemin$, NomFichier_EXPORT$)
Dim fs, a, s$, r&, c&
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(Chemin & NomFichier_EXPORT & ".csv", True)
With ThisWorkbook.Sheets(Feuille)
For r = 6 To .[H65536].End(xlUp).Row
s = "": c = 8
While Not IsEmpty(.Cells(r, c))
s = s & .Cells(r, c)
c = c + 1
Wend
a.writeline s
Next r
End With
End Sub
Sub exporter()
export_en_CSV "Automatic", ActiveWorkbook.Path & "\", "Upload_AA_VPN_AC_PIN_ExportCSV"
export_en_CSV_SANRA "Automatic", ActiveWorkbook.Path & "\", "Upload_AA_SAN_RA_PIN_ExportCSV"
End Sub