Récupérer données fichiers csv et les copier dans un fichier.xls

Sub Choix()
Dim Dossier As FileDialog
ChoixChemin = ActiveWorkbook.Path & Application.PathSeparator
   Set Dossier = Application.FileDialog(msoFileDialogFilePicker)
      With Dossier
         .AllowMultiSelect = False
         .InitialFileName = ChoixChemin
         .Title = "Choix d'un fichier Elise"
         .Filters.Clear
         .Filters.Add "Fichier Csv ", "*.csv*", 1
            If .Show = -1 Then
               Chemin = .SelectedItems(1)
               Lire Chemin
            End If
      End With
   Set Dossier = Nothing
End Sub

Sub Lire(NomFichier)
Dim Ar() As String
'Feuil1.Select
'Cells.Select
'Selection.Clear
Sep = ","
Lig = Cells(Rows.Count, 1).End(xlUp).Row + 1
    Open NomFichier For Input As #1
        Do While Not EOF(1)
            Line Input #1, Chaine
               Ar = Split(Chaine, Sep)
               Col = 1
                  For X = LBound(Ar) To UBound(Ar)
                     Cells(Lig, Col) = Ar(X)
                     Col = Col + 1
                  Next
            Lig = Lig + 1
        Loop
    Close #1
Application.Goto [A1], True
End Sub