Macro et .csv

Salut!

J'enregistre des fichiers en .csv via une marco:

Sub Backup()
Dim Filename As String
Dim nomfic As String
Dim occ1 As Integer
Dim longueur As Integer
ChDrive "F:"
ChDir "\"


Filename = Application.GetSaveAsFilename("", fileFilter:="CSV (séparateur: point-virgule) (*.csv), *.csv")

If Filename <> "Faux" Then
Sheets("Feuil1").Copy
ActiveWorkbook.SaveAs Filename, xlCSV
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True

'Détermine le nom du fichier
occ1 = InStrRev(Filename, "\")
longueur = Len(Filename) - occ1
nomfic = Right$(Filename, longueur)
MsgBox ("Le fichier créée se nomme: " & nomfic & Chr(13))

'Affichage du fichier pour l'envoi par mail
Feuil2.Range("D2").Select
'Range("D3").Select
ActiveCell.FormulaR1C1 = nomfic

End If

End Sub


Le problème, c'est lorsque j'ouvre le fichier enregister, il est bien en .csv, mais il affiche tout avec des ";" , vous me direz normal c'est un .csv.
Mais quand j'enregistre pas moi meme sans macro en .csv pareil avec CSV (séparateur: point-virgule) cela enregistre bien et si je réouvre le ficiher chaque valeur est bien dans chaque cellule et si je l'ouvre avec wordpad, j'ai bien mes "," et c'est cela que je veux.

Donc ma question est:

comment avec ma macro enregistrer en .csv puis-je avoir l'affichage des valeur dans chaque cellule dans excel quand je l'ouvre et avec mes ";" quand j'ouvre le fichier avec wordpad par ex.

Merci