Copier les colonnes d'une feuille dans une certaine ordre

Bonjour, J'aimerais copier les colonnes d'une feuille vers une autre feuille , mais cela dans un certain ordre.

J'ai essayé la macro suivante mais le résultat n'est pas celui escompté, les colonnes sont copiés dans le bon ordre

 

Sub Table_AS_IS()
'
' Table_AS_IS Macro
' Création de la table AS_IS
'

'

    'Si la feuille table AS_IS n'existe pas, elle est créée et est nommée "table AS_IS"
    If Not (FeuilleExiste("table AS_IS")) Then
        Sheets.Add
        ActiveSheet.Name = "table AS_IS"
    End If
    Worksheets("table AS_IS").Select
    'Sinon(si elle existe déjà),on efface tous ce qui est dans les colonnes A jusqu\'à Q'
    Worksheets("table AS_IS").Range("A:Z").Clear
    Worksheets("Eric_Output_opti_AS_IS_TO_BE").Range("B:B,C:C,D:D,N:N,O:O,P:P,A:A,E:E,F:F,G:G,H:H,I:I,J:J,K:K,L:L,M:M").Copy Destination:=Worksheets("table AS_IS").Range("A1")

End Sub
Function FeuilleExiste(Nom As String) As Boolean
    On Error GoTo Err_FeuilleExiste
    FeuilleExiste = False
    FeuilleExiste = Not Worksheets(Nom) Is Nothing
Err_FeuilleExiste:
End Function

J'aimerais avoir l'ordre suivant B,C,D,N,O,P,A,E,etc. Ici le problème c'est qu'il me les remets dans l'ordre

Bonjour

Découpes tes copies en plusieurs morceaux

A tester

Sub Table_AS_IS()
'
' Table_AS_IS Macro
' Création de la table AS_IS
'

  'Si la feuille table AS_IS n'existe pas, elle est créée et est nommée "table AS_IS"
  If Not (FeuilleExiste("table AS_IS")) Then
    Sheets.Add
    ActiveSheet.Name = "table AS_IS"
  End If
  Worksheets("table AS_IS").Select
  'Sinon(si elle existe déjà),on efface tous ce qui est dans les colonnes A jusqu\'à Q'
  Range("A:Z").Clear

  With Worksheets("Eric_Output_opti_AS_IS_TO_BE")
    .Columns("B:D").Copy Range("A1")
    .Columns("N:P").Copy Range("D1")
    .Columns("A").Copy Range("G1")
    .Columns("E:M").Copy Range("H1")
  End With
End Sub