Macro pour convertir des fichiers csv en excel

Sub Macro1()
Const sep = ";"  ' séparateur cellules
Dim CH As String 'déclare la variable CH (CHemin d'accès)
Dim F As String 'déclare la variable F (Fichier)
Dim N As String 'déclare la variable N (Nom)
Dim cel As Range, tbd
CH = "E:\FNAC\Extractions Hebdo\" 'définit le chemin d'accès CH (à adapter à ton cas)
F = Dir(CH & "*.csv") 'définit le premier fichier .csv du dossier ayant CH comme chemin d'accès
Do While F <> "" 'boucle tant qu'il existe des fichiers .csv
N = Replace(F, ".csv", "") 'définit le nom N (le nom du fichier sans l'extension)
Workbooks.Open CH & F 'ouvre le fichier F
For Each cel In ActiveSheet.UsedRange.Cells
    tbd = Split(cel & sep, sep)
    cel.Resize(1, UBound(tbd)).Value = tbd
Next cel
ActiveWorkbook.SaveAs CH & N, FileFormat:=51 'enregistre le fichier au format Excel
ActiveWorkbook.Close 'ferme le fichier
F = Dir 'définit le prochain fichier .csv
Loop 'boucle
End Sub

Option Explicit
Sub Macro1()
Const sep = ";"  ' séparateur cellules
Dim CH As String 'déclare la variable CH (CHemin d'accès)
Dim F As String 'déclare la variable F (Fichier)
Dim N As String 'déclare la variable N (Nom)
Dim fch As Integer
Dim tbd, tbl As String
Dim lig As Long, col As Integer
Application.ScreenUpdating = False
CH = "E:\FNAC\Extractions Hebdo\" 'définit le chemin d'accès CH (à adapter à ton cas)
F = Dir(CH & "*.csv") 'définit le premier fichier .csv du dossier ayant CH comme chemin d'accès
Do While F <> "" 'boucle tant qu'il existe des fichiers .csv
N = Replace(F, ".csv", "") 'définit le nom N (le nom du fichier sans l'extension)
Workbooks.Add 'ouvre classeur
fch = FreeFile()
Open F For Input As fch 'ouvre le fichier F
lig = 1
While Not EOF(fch) '
    Line Input #fch, tbl
    tbd = Split(tbl & sep, sep)
    For col = 0 To UBound(tbd)
        If IsNumeric(tbd(col)) Then
            Cells(lig, col + 1).Value = CDbl(tbd(col))
            If InStr(tbd(col), ",") > 0 Then
                Cells(lig, col + 1).NumberFormat = "0.00"
            Else
                Cells(lig, col + 1).NumberFormat = "0"
            End If
        Else
            Cells(lig, col + 1).Value = tbd(col)
        End If
    Next col
    lig = lig + 1
Wend
Close #fch
ActiveWorkbook.SaveAs CH & N, FileFormat:=51  'enregistre le fichier au format Excel
ActiveWorkbook.Close 'ferme le fichier
F = Dir 'définit le prochain fichier .csv
Loop 'boucle
Application.ScreenUpdating = True
End Sub

Open CH & F For Input As fch 'ouvre le fichier F

Sub Macro1()
'
' Macro1 Macro
'

'
    With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\Users\SWF\Downloads\EXTFRCH-7416-2015-11-30.csv", Destination:=Worksheets("feuil2").Range("$A$1"))
        '.CommandType = 0
        .Name = "EXTFRCH-7416-2015-11-30"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 850
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
        1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub