Importer un fichier CSV dans Excel sous VBA

Bonjour

Je cherche à importer un fichier csv à l'aide d'une macro, j'ai déja un script qui me permet d'importer des feuilles excel dans mon classeur mais si j'utilise ce script mon fichier csv s'importe sans séparer mes colonnes, tout est importer dans la colonne A séparer par des ";" sinon mon fichier csv contient 3 colonnes dont un ID, un ID abrégé et un libelle

comment faire ?

Voici mon script:

Sub Importation_New_Sheet()
Dim Wb1 As Workbook, Wb2 As Workbook
Dim thefile

    Set Wb1 = ActiveWorkbook
    thefile = Application.GetOpenFilename
        If thefile <> False Then
        Set Wb2 = Workbooks.Open(thefile)
        Wb2.Sheets("sheet").Copy After:=Wb1.Sheets(Sheets.Count)
        Wb2.Close
End Sub

Merci d'avance pour votre aide

Bonjour !

En une seule ligne de code : voir du côté de la méthode Workbooks.Open avec son paramètre Local:=True par exemple …

Ou encore rien qu'en lisant l'aide VBA intégrée de la méthode Workbooks.OpenText !

Une solution :

Sub ouvrir_csv()

Nom_Fichier = Application.GetOpenFilename("Fichiers csv, *.csv")
If Nom_Fichier <> False Then
    Workbooks.OpenText Filename:=Nom_Fichier, Origin:=xlWindows, _
        StartRow:=1, DataType:=xlDelimited, Local:=True, Semicolon:=True
End If

End Sub