VBA Excel: enregistrer tous les fichiers d'un mm dossier en xlsx

Option Explicit

Sub CsvEnXls()
Dim fs, F, f1, sf
Dim wbk As Workbook, Chemin As String
Const ssfTous = &H1
Dim objShell As Object, objFolder As Object, oFolderItem As Object

    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", ssfTous)
    Set oFolderItem = objFolder.Items.Item
    
    Chemin = oFolderItem.Path & "\"
    
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set F = fs.GetFolder(Chemin)
    Set sf = F.Files
    
    For Each f1 In sf
        If LCase(Right(f1.Name, 3)) = "csv" Then
            Set wbk = Workbooks.Open(Chemin & f1.Name)
            wbk.SaveAs Left(wbk.Name, Len(wbk.Name) - 4), FileFormat:=xlOpenXMLWorkbook
            wbk.Close
        End If
    Next
    
    Set wbk = Nothing
    Set objShell = Nothing
    Set objFolder = Nothing
    Set oFolderItem = Nothing
    Set fs = Nothing
    Set F = Nothing
    Set sf = Nothing
End Sub