XL 2021 sauvegarde en csv format ";"

Sub ExporterCSV()
    Dim chemin As String
    Dim ws As Worksheet
   
    ' Spécifiez le chemin où vous souhaitez sauvegarder le fichier CSV
    chemin = "C:\Votre\Chemin\Vers\Le\Fichier.csv"
   
    ' Spécifiez la feuille de travail que vous souhaitez exporter
    Set ws = ThisWorkbook.Sheets("NomDeVotreFeuille")
   
    ' Exporter en CSV avec séparateur ";"
    ws.SaveAs chemin, xlCSV, Local:=True, CreateBackup:=False
   
    ' Limiter le nombre de lignes au nombre de lignes écrites dans la feuille
    ws.SaveAs chemin, xlCSV, Local:=True, CreateBackup:=False, _
        TableStyle:=xlNone, ReadOnlyRecommended:=False, _
        CreateBackup:=False, ConflictResolution:=xlOtherSessionChanges
End Sub

Public Property Get presse_papier_Mac_window(Optional DeleteEmptyRow As Boolean = False)
    Dim texte
    With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .GetFromClipboard: texte = Replace(.GetText(1), vbTab, ";")
        If DeleteEmptyRow Then texte = Replace(texte, vbCrLf & vbCrLf, vbCrLf)
    End With
    presse_papier_Mac_window = texte
End Property
Sub ExporterCSV()
    Dim x&, chemin$, ws As Worksheet
    ' Spécifiez le chemin où vous souhaitez sauvegarder le fichier CSV
    chemin = ThisWorkbook.Path & "\moncsv.csv"    'indiquez ici le chemin complet du csv de destination
    Set ws = ThisWorkbook.Sheets(1)    'précisez l'index ou le nom de la feuille dans les parenthèses
    ws.UsedRange.Copy
    x = FreeFile: Open chemin For Output As #x: Print #x, presse_papier_Mac_window(True): Close #x
    Application.CutCopyMode = False
End Sub