Problèmes VBA avec fichier CSV

voici mon problème j'ai commencé à faire une macro en mode débutant avec l'ouverture de Fichier en CSV.

le problème est lors de l'ouverture quand je l'ouvre manuellement tous se passe très bien il est lisible, par contre quand cette la macro qui sent charge j'ai l'impression que ce fichier est compressé…

Du coup la suite de ma macro ne correspond plus à rien....

voici le code de ma VBA.

Sub Macro1 Macro

'
' Macro1 Macro
'

'
    Sheets("Y coller article à l'office").Select
    Range("A2").Select
    Workbooks.Open Filename:= _
        "Z:\PEREIRA\Implantation\ARTICLE_A_L_OFFICE_3341.csv"
End Sub

voici ci dessous le fameux fichier "défectueux" et ceux lui ouvert par la VBA.

Merci a vous

Bonjour

Je pense qu'il suffit d'utiliser

Workbooks.OpenText ("Z:\PEREIRA\Implantation\ARTICLE_A_L_OFFICE_3341.csv"), Origin:=xlWindows, _
    StartRow:=1, Local:=True, DataType:=xlDelimited, Semicolon:=True

A+

Bonjour

Autre solution charger le fichier avec PowerQuery comme le prévoit Excel depuis la version 2016...

Ouvrir un csv sans interprétation du type et du codage des données (dates et nombres notamment) conduit souvent à une mauvaise importation...

Merci Bruno seul la fonctionne plus qu'à avancer dans la suite de la macro.

A+