Microsoft 365 Fichier CSV en EXCEL

Sub Macro1()
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
        Array(7, 1)), TrailingMinusNumbers:=True
    Cells.Select
    Cells.EntireColumn.AutoFit
    Range("A1").Select
End Sub

Sub test()
    Dim texto As String, x, Fichier As String
    Fichier = "C:\Users\patricktoulon\Desktop\User Activity Report (1).csv"
    Open_For_Read_Force_Udf_8 Fichier, texto
    texto = Replace(texto, """", "")
    lignes = Split(texto, vbCrLf)
    With ActiveSheet
        Cells.Clear
        For i = 0 To UBound(lignes)
            If lignes(i) <> "" Then
                t = Split(lignes(i), ",")
                Cells(i + 1, 1).Resize(, UBound(t) + 1) = t
                c = IIf(c < UBound(t), UBound(t), c)
            End If
        Next
        .UsedRange.Value = .UsedRange.Value
        .ListObjects.Add(xlSrcRange, .UsedRange, , xlYes).Name = "Tableau1"
        .UsedRange.Columns.AutoFit
    End With
End Sub
Function Open_For_Read_Force_Udf_8(ByVal Fichier$, texto$)
'fonction de lecture des fichier.txt en UDF-8
'patricktoulon
'version  2021
    Dim lachaine As String, x: x = FreeFile
    'lecture binnaire
    Open Fichier For Binary Access Read As #x: lachaine = String(LOF(x), " "): Get #x, , lachaine: Close #x
    If Not lachaine Like "*[Ã|é|è|ç|â|€|«|»|û|ê|…|/ø|ø|À|É|È|Ã|Ö|]*" Then    'si la chaine ne contient pas de carateres sbizarre
        texto = lachaine    ' alors texto = lachaine
    Else    ' sinon on stream le fichier avec ADOBD.Stream

        With CreateObject("ADODB.Stream")
            .Charset = "utf-8": .Open: .LoadFromFile (Fichier): texto = .ReadText()
        End With
    End If
End Function