Changer le séparateur dans une conversion XLS CSV

Bonjour, je rencontre un problème, je dois créer une macro qui convertit la première du fichier XLS en un fichier CSV, mais je veux aussi changer le séparateur, j'ai cette macro

Sub ExportCSV()
  Dim nomFichier As String
  Dim chemin As String
  Dim sSep As String
  Dim sInFilePath As String
  Dim sOutFilePath As String

  sSep = ";!@#;"

  chemin = ThisWorkbook.Path & "\"
  nomFichier = chemin & "test.csv"

  ThisWorkbook.Worksheets("Deliveries").Copy
  Application.DisplayAlerts = False
  ActiveWorkbook.SaveAs Filename:=nomFichier, FileFormat:=xlCSV, local:=True
  ActiveWorkbook.Close
  Application.DisplayAlerts = True

   sInFilePath = nomFichier
   sOutFilePath = nomFichier

  Call WriteANSItoUF8WithoutBOM(sInFilePath, sOutFilePath)
End Sub

Comment faire pour que le séparateur passe de ";" au séparateur indiqué dans sSep ?

Cordialement,