Problème de date après conversion via VBA d'un fichier csv en xlsx

Bonjour,

Je dois ouvrir automatiquement un fichier csv pour le convertir en xlsx pour un traitement ultérieur mais j'ai un problème dans les dates: par exemple 10/05/2021 se transforme en 05/10/2021. Je n'ai pas ce problème quand je convertir mon fichier manuellement. Quelqu'un aurait-il l'amabilité de m'aider. Merci

Vous trouverez en pj un exemple du fichier

J'ai utilisé l'enregistreur de macro

Sub Macro1()
'
'
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
        Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
        ), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array _
        (20, 1), Array(21, 1)), TrailingMinusNumbers:=True

End Sub

merci

Bonsoir,
Essaie ainsi :

Sub Macro1()
    Columns("A:A").TextToColumns _
            Destination:=Cells(1), _
            DataType:=xlDelimited, _
            Comma:=True, _
            FieldInfo _
            :=Array(Array(1, 2), Array(2, 2), Array(3, 2), _
                    Array(4, 4), Array(5, 4), Array(6, 2), _
                    Array(7, 4), Array(8, 4), Array(9, 2), _
                    Array(10, 2), Array(11, 2), Array(12, 2), _
                    Array(13, 2), Array(14, 2), Array(15, 2), _
                    Array(16, 2), Array(17, 2), Array(18, 2), _
                    Array(19, 2), Array(20, 2), Array(21, 2))
    With Cells(1)
        .Resize(1, 21).EntireColumn.AutoFit
        .Select
    End With
End Sub

Merci mais malheureusement j'ai toujours le problème de date. 10/05/2021 se transforme en 05/10/2021.