Excel csv vers xlsm

Sub Bouton1()

    strCommand = "Powershell -File ""\C:\Temp\Excel\Update_data"""
    Set WshShell = CreateObject("WScript.Shell")
    Set WshShellExec = WshShell.Exec(strCommand)
    strOutput = WshShellExec.StdOut.ReadAll
    MsgBox strOutput
    
End Sub

# Définir les emplacements et le séparateur 
$csv = "\C:\Temp\Excel\Update_data\Customer_hotline.csv" # Emplacement du fichier source 1
$csv2 = "\C:\Temp\Excel\Update_datal\Customer_consulting.csv" # Emplacement du fichier source 2
$xlsm = "\C:\Temp\Excel\Update_data\Customer_hotline_consulting.xlsm" # Emplacement du fichier final
$delimiter = "," # Séparateur

# Ouvrir le fichier et la feuille excel (fichier 1)
$excel = New-Object -ComObject excel.application
$Workbook = $Excel.Workbooks.Open($$xlsm)
$worksheet = $workbook.Worksheets.Item(1)
$worksheet.Cells.Clear()

# Ajout des données + formatage des données (fichier 1)
$TxtConnector = ("TEXT;" + $csv)
$Connector = $worksheet.QueryTables.add($TxtConnector,$worksheet.Range("A1"))
$query = $worksheet.QueryTables.item($Connector.name)
$query.TextFileOtherDelimiter = $delimiter
$query.TextFileParseType  = 1
$query.TextFileColumnDataTypes = ,2 * $worksheet.Cells.Columns.Count
$query.AdjustColumnWidth = 1
$query.TextFilePlatform = 65001

# Exécuter et supprimer la requête d'importation (fichier 1)
$query.Refresh()
$query.Delete()



# Ouvrir ouvrir feuille de calcul (fichier 2)
$worksheet2 = $workbook.Worksheets.Item(2)
$worksheet2.Cells.Clear()

# Ajout des données + formatage des données (fichier 2)
$TxtConnector = ("TEXT;" + $csv2)
$Connector = $worksheet2.QueryTables.add($TxtConnector,$worksheet2.Range("A1"))
$query = $worksheet2.QueryTables.item($Connector.name)
$query.TextFileOtherDelimiter = $delimiter
$query.TextFileParseType  = 1
$query.TextFileColumnDataTypes = ,2 * $worksheet2.Cells.Columns.Count
$query.AdjustColumnWidth = 1
$query.TextFilePlatform = 65001


# Exécuter et supprimer la requête d'importation (fichier 2)
$query.Refresh()
$query.Delete()

# Sauvegarder et fermer le fichier .xlsx
$Workbook.Save()
$excel.Quit()