VBA : enregistrement CSV sous 2003 avec "," au lieu de ";"

Sub creer_CSV_3()
Dim i&, j&, k&, Num&
Dim Mes$, Fic$, Chem$
Dim Plg As Variant, Liste()
Fic = "_" & Format(Date, "dd-mm-yyyy") & "_" & Format(Time, "h""H""mm") & ".csv"
Liste = Array("entetes", "lignes")
Chem = Range("integrations").Value
For k = LBound(Liste) To UBound(Liste)
    Num = FreeFile
    Open Chem & "\" & Liste(k) & Fic For Output As #Num
        Plg = Sheets(Liste(k)).Range("A1").CurrentRegion.Value
        For i = LBound(Plg, 1) + 1 To UBound(Plg, 1)
            For j = LBound(Plg, 2) To UBound(Plg, 2)
                Mes = Mes & Plg(i, j) & ";"
            Next j
            Print #Num, Mes
            Mes = ""
        Next i
    Close #Num
    Erase Plg
Next k
MsgBox "Exportation effectuée"
End Sub