Problème inversion date EXCEL (+ conversion csv)

Bonjour,

voilà mon problème :
Excel a un problème de dates, ok.

J'ai une macro qui m'exporte un fichier Excel en csv automatiquement (après avoir fait pleins de trucs dessus).
Mon problème est que ma macro qui travaille mes données est lourde et qu'elle n'est pas parfaitement adaptée à tous les fichiers sur lesquels je travaille (je peux pas faire mieux, je suis pas un pro en vba). Bref.
Dans mon fichier CSV j'ai une date en 2ème colonne, qui doit être sous format "yyyy-mm-dd". Ca c'est ok. Sauf que niais que je suis, dans la joie j'ai fait toutes les exportations en 3h et quelques, et là : mes mois et mes jours sont inversés 4 lignes sur 5...

Personne ne sait comment on stoppe ça ? J'en peux plus de ce problème.



Mon code de conversion de date + exportation en csv:

Dim newWS As Worksheet 'Fait référence à la feuille a_extraire qui servira à la création du fichier csv
Dim directory As String '[/contents/234-cvs-introduction Répertoire de travail]
Dim nom_fichier As String 'Nom du fichier csv
    Dim nbRow_x As Integer 'Nombre de lignes à exporter
    Dim nbCol_x As Integer 'Nombre de colonnes à exporter
    Dim Plage As Object, oL As Object, oC As Object, [/contents/452-fichier-tmp Tmp] As String, Sep$ 'Variables servant à la création du fichier csv



With newWS 'Conversion de la date au format aaaa-mm-jj
        .Columns("B:B").NumberFormatLocal = "aaaa-mm-jj;@"
        .Columns("B:B").FormulaLocal = Columns("B:B").Value
    End With
    
    '_____________________________________________________________
    
    '-----------------------Création du fichier CSV--------------------
    
    nbRow_x = newWS.UsedRange.Rows.Count 'Nombre de lignes de la feuille a_exporter
    nbCol_x = newWS.UsedRange.Columns.Count 'Nombre de colonnes de la feuille a_exporter
    nom_fichier = directory & "\csv\CSV_" & Application.Workbooks.Item(1).Name & ".csv" 'Nom du fichier créé de facon auto
    Sep = ";"
   
    Set Plage = newWS.Range(newWS.Cells(1, 1), newWS.Cells(nbRow_x, nbCol_x)) 'Sélection de la plage à exporter

    
    'Ecriture du csv
    Open nom_fichier For Output As #1
    For Each oL In Plage.Rows
    Tmp = ""
    For Each oC In oL.Cells
    Tmp = Tmp & CStr(oC.Text) & Sep
    Next
    Print #1, Tmp
    Next
    Close
    MsgBox "Exportation au format .csv réussie"

EDIT: Précision du langage dans la coloration syntaxique.