Problème conversion date

Bonjour,

J'explique rapidement ce que je cherche à faire,
J'ai une macro qui transforme un tableau (tout pleins de trucs qui marchent bien) et l'ultime étape de cette macro est l'exportation en csv. Je dois exporter : une colonne qui contient un code (string), une autre date, une colonne valeur1, et une colonne valeur2.

Mon problème c'est que ce fichier csv est destiné à être inséré dans une BD mysql et que le format de la date sous Excel est "dd/mm/yyyy", or moi il me faut "yyyy-mm-dd". J'ai essayé avec pleins de fonctions de format mais rien ne marche. La seule chose que j'ai trouvée qui fonctionne à peu près :

With newWS 'Ma feuille a transformer en csv
        .Columns("B:B").NumberFormatLocal = "aaaa-mm-dd;@"
        .Columns("B:B").FormulaLocal = Columns("B:B").Value
        .Columns("B:B").EntireColumn.AutoFit
    End With

Sauf que même ce code ne m'affiche pas le jour, il laisse "-dd" partout.
HELP.