Comment exporter un fichier excel au format .txt avec la vigule comme séparateur ?

Cette macro fonctionne aussi bien pour mac que pour PC

sub ExportAvecSeparateurVirgule()
 Dim NbLignes As Integer, NbCol As Integer, i As Integer
 Dim j As Integer, S As String
  ' Détermination du nombre de lignes dans le fichier
  ' en négligeant les éventuels problèmes liés à
  ' l'emplacement de la dernière cellule.
  NbLignes = Selection.SpecialCells(xlCellTypeLastCell).Row
  ' Création d'un "canal" vers le fichier texte
  Open "Export " & ActiveSheet.Name & ".xls" For Output As #1
    For i = 1 To NbLignes
      ' Détermination du nombre de colonnes utiles sur la ligne
      NbCol = Cells(i, 1).EntireColumn.Find("*", , , , ,xlPrevious).Row
        For j = 1 To NbCol
          S = S & "," & Cells(i, j)
        Next j
      ' Suppression de la première virgule, et ajout au fichier texte.
      Print #1, Right(S, Len(S) - 1)
     ' MsgBox S
      S = ""
    Next i
  ' Fermeture du "canal"
  Close #1
 end sub