fichier csv avec separateur ;

bonjour

à l'intérieur d'une macro , je sauve une feuille en un fichier csv.
par contre ce fichier a bien l'extansion csv , mais ses données ne sont pas sauver avec le format csv séparateur ;

merci d'avance

voici le code

'sauve csv

Dim wb As Workbook, wb2 As Workbook
Dim ws As Worksheet
Dim Chemin$, NomFichier$
Set wb = ThisWorkbook
Set ws = Sheets("F")

With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With

Set wb2 = Workbooks.Add(xlWBATWorksheet)
ws.Copy Before:=wb2.Sheets(1)
For Each ws2 In wb2.Worksheets
If Not ws2.Name = ws.Name Then ws2.Delete
Next ws2

NomFichier = _
ws.Name & "_ " & Format(Date, "ddmmyyyy") & ".csv"
Chemin = _
InputBox("Saisir le nom du répertoire de sauvegarde", _
"Choix Répertoire", _
"U:\ECOPLI_IND_Sans_Import\122009") & "\"

wb2.SaveAs (Chemin + NomFichier)
wb2.Close

With Application
.DisplayAlerts = True
.ScreenUpdating = True
End With