Bizarrerie du CSV

Bonjour,

Je vous expose mon problème, je dois récupérer des données dans un .CSV, quand je double clic dessus tout se met en place nickel comme je le souhaite, j'ai juste à faire un copier limite, mais quand je l'ouvre via macro, la disposition est complètement anarchique avec les ; des données dans des colonnes improbables.

si-après la commande :

Sub Explorateur_fichier_3()

'Définition du fichier
Dim DATA_à_Dep

'Ouverture de la boite de dialogue
With Application.FileDialog(msoFileDialogFilePicker)
.Show
If .SelectedItems.Count = 1 Then DATA_à_Dep = .SelectedItems(1)

'Affichage du fichier à dépouiller
Workbooks.Open DATA_à_Dep

End With
End Sub

Existe t'il une variante de la commande Workbooks.Open qui ouvre mon CSV comme lors d'un double clique.

Merci par avance pour votre aide.