Adaptation de macro incomplète

Bonjour le forum comment allez vous

je vous écris car j'ai un petit soucis avec une macro que j'ai réalisé pour une factures qu'il date de 1 mois et aujourd'hui je dois la modifier en enlevant certaine colonnes voici ma macro qui ma permet de filtrer certaines données dans une autre feuille de calcul mais je n'arrive pas a l'adapter

pour mieux comprendre voici un exemple :mon fichier "Factures" est le fichier qui dois être filtré dans la feuille " Compta voir les feuilles ci-dessous

si quelqu'un pourrait m'aider et m'expliquer comment il a fais !

Ps mon code n'a pas beaucoup de commentaires si quelqu'un a des conseils pour mes macros je suis preneur encore merci

Sub comptabiliser()
     Dim F1 As Worksheet, F2 As Worksheet
     Dim Tablo, i As Long

     Set F1 = Sheets("Factures")
     Set F2 = Sheets("Compta")

     Tablo = F1.Range("A2", "Z" & F1.Range("A" & Rows.Count).End(xlUp).Row).Value2
     Set dict = CreateObject("scripting.dictionary")
     dict.Add dict.Count, Array("Date", "code journal", "compte", "débit", "crédit", " ")     'les titles

     For i = 1 To UBound(Tablo)     'IMPORTANT, CHAQUE LIGNE DOIT AJOUTER LE MÊME NOMBRE D'ELEMENTS DANS "ITEMS" = 8 !!!
          dict.Add dict.Count, Array(Tablo(i, 2), ("VT"), "70600000", "", Tablo(i, 10), Tablo(i, 6), Tablo(i, 1), Tablo(i, 9))

     Next i

     arr = Application.Index(dict.items, 0, 0)
     F2.Cells.ClearContents
     With F2.Range("A1").Resize(UBound(arr), UBound(arr, 2))
          .Value = arr
          .EntireColumn.AutoFit
          .Sort .Range("G1"), xlAscending, Header:=xlYes
     End With

     Sheets("Compta").Select
Columns("A:A").Select
      Selection.NumberFormat = "m/d/yyyy"
End Sub

PS j'ai trouver tout seul en comprenant mon erreur