Microsoft 365 Idée de macro pour transposer facilement csv bancaire ?

let
    Source = Csv.Document(File.Contents("C:\Users\STAPLE\Fichiers_csv\Banque.csv"),[Delimiter=";", Columns=7, Encoding=65001, QuoteStyle=QuoteStyle.None]),
    #"En-têtes promus" = Table.PromoteHeaders(Source, [PromoteAllScalars=true]),
    #"Type modifié" = Table.TransformColumnTypes(#"En-têtes promus",{{"Date", type date}, {"Nature de l'operation", type text}, {"Debit", Int64.Type}, {"Credit", Int64.Type}, {"Devise", type text}, {"Date de valeur", type date}, {"Libelle interbancaire", type text}}),
    #"Lignes filtrées" = Table.SelectRows(#"Type modifié", each ([Date de valeur] <> null)),
    #"Valeur remplacée" = Table.ReplaceValue(#"Lignes filtrées",null,0,Replacer.ReplaceValue,{"Debit", "Credit"})
in
    #"Valeur remplacée"

Sub Transpose()
Dim ajout, chemin$, x%, y%, texte$, s, a, ss, i As Variant
ajout = Array("DE", "MOTIF", "REF", "REMISE", "DATE")
chemin = ThisWorkbook.Path & "\"
x = FreeFile
Open chemin & "CSV Source.csv" For Input As #x 'ouverture en lecture séquentielle
y = FreeFile
Open chemin & "CSV transposé.csv" For Output As #y 'ouverture en écriture séquentielle
Line Input #x, texte 'saute les titres
Print #y, "Date;Nature;" & Join(ajout, ";") & ";Débit;Crédit;Devise;Date de valeur;Libellé"
While Not EOF(x)
    Line Input #x, texte
    s = Split(texte, ";")
    If s(0) <> "" Then
        If IsArray(a) Then Print #y, Join(a, ";")
        ReDim a(1 To 12)
        If IsDate(s(0)) Then a(1) = CDate(s(0))
        a(2) = s(1): a(8) = s(2): a(9) = s(3): a(10) = s(4)
        If IsDate(s(5)) Then a(11) = CDate(s(5))
        a(12) = s(6)
    ElseIf UBound(s) > 0 Then
        texte = Replace(s(1), """", "") 'ôte tous les guillemets
        ss = Split(texte, ":")
        i = Application.Match(Trim(ss(0)), ajout, 0)
        If IsNumeric(i) And UBound(ss) > 0 Then a(i + 2) = Trim(ss(1))
    End If
Wend
Print #y, Join(a, ";") 'dernière ligne
Close #x
Close #y
MsgBox "Le fichier 'CSV transposé.csv' a été créé..."
End Sub

Sub Transpose()
Dim d As Object, ajout, i As Byte, chemin$, x%, texte$, concat$(), n&, s, a, ss
Set d = CreateObject("Scripting.Dictionary")
d.CompareMode = vbTextCompare 'la casse est ignorée
ajout = Array("DE", "MOTIF", "REF", "REMISE", "DATE")
For i = 0 To UBound(ajout): d(ajout(i)) = i + 1: Next 'repère la position
chemin = ThisWorkbook.Path & "\"
x = FreeFile
Open chemin & "CSV Source.csv" For Input As #x 'ouverture en lecture séquentielle
Line Input #x, texte 'saute les titres
ReDim concat(0)
concat(0) = "Date;Nature;" & Replace(Join(ajout, ";"), "DE", "DE/POUR") & ";Débit;Crédit;Devise;Date de valeur;Libellé" 'titres du résultat
n = 1
While Not EOF(x)
    Line Input #x, texte
    s = Split(texte, ";")
    If s(0) <> "" Then
        If IsArray(a) Then ReDim Preserve concat(n): concat(n) = Join(a, ";"): n = n + 1
        ReDim a(1 To 12)
        If IsDate(s(0)) Then a(1) = CDate(s(0))
        a(2) = s(1): a(8) = s(2): a(9) = s(3): a(10) = s(4)
        If IsDate(s(5)) Then a(11) = CDate(s(5))
        a(12) = s(6)
    ElseIf UBound(s) > 0 Then
        texte = Replace(s(1), """", "") 'ôte tous les guillemets
        ss = Split(texte, ":")
        texte = Trim(ss(0))
        If UCase(texte) = "POUR" Then texte = "DE"
        i = d(texte) 'récupère la position
        If i * UBound(ss) > 0 Then a(i + 2) = Trim(ss(1))
    End If
Wend
ReDim Preserve concat(n): concat(n) = Join(a, ";")  'dernière ligne
Close #x
x = FreeFile
Open chemin & "CSV transposé.csv" For Output As #x 'ouverture en écriture séquentielle
Print #x, Join(concat, vbLf) 'restitution avec renvois à la ligne
Close #x
MsgBox "La fichier 'CSV transposé.csv' a été créé..."
End Sub