copier coller colonne dans ordre différent sur autre feuille

Sub Transfert_phil69()
 Dim H, F, G, D, K, L, M, I
 Dim F1 As Worksheet, F2 As Worksheet, DerLig As Long, LigDep As Long

 Set F1 = Worksheets("Feuil1")
 Set F2 = Worksheets("Feuil2")
    
 DerLig = F1.Range("A" & Rows.Count).End(xlUp).Row

 With F1
 H = .Range("H3:H" & DerLig)   ' "mémorise" la colonne H
 F = .Range("F3:F" & DerLig)   ' "mémorise" la colonne F
 G = .Range("G3:G" & DerLig)   '  ...
 D = .Range("D3:H" & DerLig)
 K = .Range("K3:K" & DerLig)
 L = .Range("L3:L" & DerLig)
 M = .Range("M3:M" & DerLig)
 I = .Range("I3:I" & DerLig)
 End With

 LigDep = F2.Range("A" & Rows.Count).End(xlUp).Row + 1
 With F2
 .Range("A" & LigDep).Resize(UBound(H)) = H  ' copie le contenu de la colonne H en A
 .Range("B" & LigDep).Resize(UBound(F)) = F   '...
 .Range("C" & LigDep).Resize(UBound(G)) = G
 .Range("D" & LigDep).Resize(UBound(D)) = D
 .Range("E" & LigDep).Resize(UBound(K)) = K
 .Range("F" & LigDep).Resize(UBound(L)) = L
 .Range("G" & LigDep).Resize(UBound(M)) = M
 .Range("H" & LigDep).Resize(UBound(I)) = I
 End With

 F1.Cells.ClearContents

End Sub

Option Explicit
Sub Informations_transférer()
    Dim où As Object
    Set où = Sheets("Feuil2")
    With Application: .ScreenUpdating = 0: .Calculation = xlCalculationManual: End With
    With Sheets("Feuil1")
        .Columns(4).SpecialCells(xlCellTypeConstants, 23).Offset(1, 0).Copy Destination:=où.Range("d" & Rows.Count).End(xlUp)(2)
        .Columns(6).SpecialCells(xlCellTypeConstants, 23).Offset(1, 0).Copy Destination:=où.Range("b" & Rows.Count).End(xlUp)(2)
        .Columns(7).SpecialCells(xlCellTypeConstants, 23).Offset(1, 0).Copy Destination:=où.Range("c" & Rows.Count).End(xlUp)(2)
        .Columns(8).SpecialCells(xlCellTypeConstants, 23).Offset(1, 0).Copy Destination:=où.Range("a" & Rows.Count).End(xlUp)(2)
        .Columns(9).SpecialCells(xlCellTypeConstants, 23).Offset(1, 0).Copy Destination:=où.Range("h" & Rows.Count).End(xlUp)(2)
        .Columns(11).SpecialCells(xlCellTypeConstants, 23).Offset(1, 0).Copy Destination:=où.Range("e" & Rows.Count).End(xlUp)(2)
        .Columns(12).SpecialCells(xlCellTypeConstants, 23).Offset(1, 0).Copy Destination:=où.Range("f" & Rows.Count).End(xlUp)(2)
        .Columns(13).SpecialCells(xlCellTypeConstants, 23).Offset(1, 0).Copy Destination:=où.Range("g" & Rows.Count).End(xlUp)(2)
    End With
    With Application: .ScreenUpdating = -1: .Calculation = xlCalculationAutomatic: End With
End Sub

Sub Recopie()
Dim a
    With Sheets("Feuil1").Range("A2").CurrentRegion
        a = Application.Index(.Value, Evaluate("row(1:" & _
                                               .Rows.Count & ")"), Array(8, 6, 7, 4, 11, 12, 13, 9))
    End With
    With Sheets("Feuil2").Range("A2").Resize(UBound(a, 1), UBound(a, 2))
        .Value = a
    End With
End Sub