Exporter en CSV

Sub CreatRepertoire()
Chemin = ActiveWorkbook.Path & "\"
   MonRep = Chemin & "EXP"
      If Dir(MonRep, vbDirectory) = "" Then
         MkDir (MonRep)
      End If
 Call Export(MonRep)
End Sub

Private Sub Export(Chemin)
NonFic = ActiveSheet.Name
Ext = ".csv"
Sep = "^"
Fichier = NonFic & Ext
CheminFiche = Chemin & "\" & Fichier
' --------------
lifin = Cells(Rows.Count, 2).End(xlUp).Row
   Set A = Range(Cells(2, 2), Cells(3, 7))
   Set B = Range(Cells(7, 2), Cells(lifin, 7))
    Set Plage = Union(A, B)
      Open CheminFiche For Output As #1
         For Each Lig In Plage.Rows
            Tmp = ""
               For Each Cel In Lig.Cells
                  Tmp = Tmp & CStr(Cel.Text) & Sep
               Next
            Print #1, Tmp
         Next
      Close
   Set Plage = Nothing
MsgBox "Terminer"
End Sub

Sub export_csv()
Dim separateur, cellule, feuille, chemin, strChaine As String
Dim lideb, codeb, lifin, cofin, cofintitre As Long
Dim plagetitre, plageentete, plagetitrechamp, plagedonnees, plagetotale As Range
Dim FSO As Object
Dim ligne_precedente As Integer

separateur = "^"
chemin = Application.ActiveWorkbook.Path
feuille = ActiveSheet.Name

'Je défini les bornes que je vais utiliser pour la définition de mes plages
cofintitre = Range("B1").End(xlToRight).Column
lideb = 7
codeb = 2
lifin = Cells(Rows.Count, codeb).End(xlUp).Row
cofin = Cells(lideb, Columns.Count).End(xlToRight).Column


'Je défini le chemin d'accès du répertoire de dépôt de mes fichier csv
Set FSO = CreateObject("Scripting.FileSystemObject")
If Not (FSO.FolderExists(chemin & "\EXP")) Then
    FSO.CreateFolder (chemin & "\EXP")
End If
If Not (FSO.FolderExists(chemin & "\EXP\" & feuille)) Then
    FSO.CreateFolder (chemin & "\EXP\" & feuille)
End If


'Je défini mes quatre plages
Set plagetitre = Range(Cells(1, 2), Cells(1, cofintitre))
plagetitre.Select

Set plageentete = Range(Cells(2, 2), Cells(2, cofintitre))
plageentete.Select

Set plagetitrechamp = Range(Cells(3, 2), Cells(3, cofintitre))
plagetitrechamp.Select

Set plagedonnees = Range(Cells(lideb, codeb), Cells(lifin, cofintitre))
plagedonnees.Select

Set plagetotale = Union(plageentete, plagetitrechamp, plagedonnees)

'J'exporte ma plage totale en CSV
'C'est à ce niveau que je rencontre des problèmes
Open chemin & "\test.csv" For Output As #1
ligne_precedente = plageentete.Row
For Each cell In plagetotale
 'On concatene les cellules avec le séparateur..
 strChaine = strChaine & separateur & cell.Value
  'On passe à la ligne suivante
  If (cell.Row > ligne_precedente) Then
    strChaine = strChaine & vbCrLf
  End If
  ligne_precedente = cell.Row
Next
'On retire le premier caractère separateur
strChaine = rigth(strChaine, Len(strChaine) - 1)

'On écrit le fichier
Print #1, strChaine
strChaine = ""

'Fermeture du fichier
Close #1
Set FSO = Nothing
Set plagedat = Nothing
Set Plagetit = Nothing
MsgBox "Fichier : " & chefichcsv & " disponible"
End Sub