Exporter colonne dans un autre classeur

bonjour,

j'ai deux fichier excel ouvert. Actuellement j'utilise ce code pour importer des colonnes de mon deuxième fichier. Il importe les colonnes choisis à partir de la ligne 5.

Sub Transfert()
Dim WbK As String
Dim WB As String
Dim i As Integer
WbK = ActiveWorkbook.Name
Columns("A:A").Select
Selection.UnMerge
Range("A5").Select
    If Workbooks.Count = 2 Then
        For i = 1 To 2
            If Not Workbooks(i).Name = ThisWorkbook.Name Then WB = Workbooks(i).Name
        Next i
    End If
Workbooks(WB).Activate
Columns("A:A").Select
Selection.UnMerge
Range("a5:h" & Range("h65536").End(xlUp).Row + 1).Copy
Workbooks(WbK).Activate
Range("a5:h" & Range("h65536").End(xlUp).Row + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.CutCopyMode = False
Range("A4").Select
End Sub

Maintenant ce que je souhaiterais faire c'est exporter des colonnes dans un autre fichier sur le même principe que le code ci-dessus.

En gros faire l'inverse.

quelqu'un peut m'aider à modifier le code?

bonne soirée

Hello,

J'ai une question à quoi correspond cette partie du code

Workbooks(WB).Activate

?

Il faut que tu déclares le nom de ce WB.

Bonne soirée

Bonjour,

à partir du tableau qui contient la macro, si j ouvre un autre fichier Excel ( j ai donc à chaque fois deux fichiers ouverts.)

Et que je clique sur ma macro je voudrais que ça copie les colonnes voulu sur le fichier que je viens d ouvrir

Quel que soit son nom. Il y aura tjs que deux fichiers ouvert. Celui avec la macro et les colonnes à copier et celui qui doit recevoir les colonnes.

Est ce possible?