Sauvegarder d'un Fichier Excel en Fichier csv

Bonjour,

Je voudrai pouvoir enregistrer le fichier Excel que j’ai créer en csv plutôt qu'en xlsx
mais en faisant comme cela j'obtient une page illisible.

Set rs = CurrentDb.OpenRecordset(strsql, dbOpenDynaset)
 Set excl = fExportExcel(chemin, rs, True, 1, 1)
 Path = CurrentProject.Path
Private Sub cmd6_Click()
'---Parcourt de la feuille
     With excl.Sheets(1)
            .Columns("I:I").ColumnWidth = 12 
            .Cells(1, 9).HorizontalAlignment = xlCenter
           .Columns("I:I").VerticalAlignment = xlCenter
           .Columns("I:I").HorizontalAlignment = xlCenter
           .Columns("I:I").WrapText = True

            With .PageSetup
                     .CenterHeader = "&G&18&K&""Comic Sans Ms"" &  " & Ex_Titre    
                     .LeftFooter = "&I&D / &T" 
                     .RightFooter = "&8&P/&N »
                     .Orientation = xlLandscape
                    .zoom = False
                    .
                   .
          End With
      End With

  '--- Sauvegarde d'Excel
        excl.SaveAs Path & "\" & "DOSSIERS\DOSSIERS EXCEL\" & D_Dossier & "" & ".csv"

excl.Application.Quit
        MsgBox "Tableau Excel Terminé"
 Set excl = Nothing
Exit Sub

Set excl = Nothing
Set rs = Nothing
End sub

Merci pour votre aide.

Salutations.