Copie et coller quelques colonnes A partir d'un autre fichie

Bonjour à tous

je souhaite copier des colonnes du fichier B dans mon fichier A

j'ai trouvé le code ci dessous qui fonctionne à moitié bien

le souci avec ce code il ne copie pas toutes les colonnes que j'ai mis dans le "Array"

il prend uniquement une seule colonne

et il ecrase la premiere colonne

pouvez vous me dire ce qui ne va pas

MErci beaucoup pour votre aide

Sub ImporterColonnes()
Dim Fichier, WbkCopy As Workbook, WbkColle As Workbook
Dim Colonnes(), Col As Integer, Resultat As Variant

  'On attribue à la variable WbkColle le fichier actuel (celui qui contient la macro)
  Set WbkColle = ThisWorkbook
  'A adapter : Nom des entêtes de colonnes à importer
  Colonnes = Array("RA", "BN")

  'Sélection du fichier
  Fichier = Application.GetOpenFilename("Extraction , *.xls*")
  'En cas de clic sur "ANNULER"
  If Fichier <> False Then
    'On ouvre le fichier en question
    Set WbkCopy = Workbooks.Open(Fichier)
    With WbkCopy.Sheets(1) '==> ADAPTER NOM de la feuille

      'Boucle sur toutes les entêtes des colonnes
      For Col = 1 To .Cells(1, .Cells.Columns.Count).End(xlToLeft).Column
        'teste si l'entête correspond à un des noms des colonnes à copier
        Resultat = Application.Match(.Cells(1, Col), Colonnes, 0)
        'Si l'entête est trouvée (colonne à copier)
        If Not IsError(Resultat) Then
          'Copié - Collé ==> ADAPTER NOM de la feuille ou coller ("TRUC" à remplacer)
          .Columns(Col).Copy WbkColle.Sheets("Ban").Cells(1, Cells.Columns.Count).End(xlToLeft).Offset(0, 1)
        End If
      Next Col
    End With
    WbkCopy.Close
  End If
Set WbkCopy = Nothing
Set WbkColle = Nothing
End Sub[/quote]

bonjour

svp quelqu’un peut m'aider sur ma question

merci d'avance