Coller une colonne qui contient un texte

Sub Macro1()
Dim CS As Workbook 'déclare la variable CS (Classeur Source)
Dim OS As Worksheet 'déclare la variable OS (Onglet Source)
Dim CD As Workbook 'déclare la variable CD (Classeur Destination)
Dim OD As Worksheet 'déclare la variable OD (Onglet Destination)
Dim CEL As Range 'déclare la variable OS (Onglet Source)
Dim DEST As Range 'déclare la variable DEST

Set CS = ThisWorkbook 'définit le classeur source CS
Set OS = CS.Sheets("Feuil1") 'définit l'onglet source OS (à adapter à ton cas)
Set CD = Workbooks("L_autre_classeur_ouvert.xls") 'définit le classeur destination CD (à adapater à ton cas)
Set OD = CD.Sheets("Feuil1") 'définit l'onglet destination OD (à adapter à ton cas)
For Each CEL In Application.intesect(OS.UsedRange, OS.Rows(3)) 'boucle sur toutes les cellules éditées CEL de la ligne 3 de l'onglet OS
    If CEL.Value = "valeur" Then 'si la cellule contient "valeur"
        'définit la cellule de destination DEST (A1, si A1 est vide, sinon la première cellule vide de la ligne 1)
        Set DEST = IIf(OD.Range("A1") = "", OD.Range("A1"), OD.Cells(1, Application.Columns.Count).End(xlToLeft).Offset(0, 1))
        CEL.EntireColumn.Copy DEST 'copie la colonne de la cellule CEL dans DEST(à adapter pour la destination)
        Exit Sub 'si une seule cellule peut contenir "valeur" (sinon supprimer cette ligne)
    End If 'fin de la condition
nexy CEL 'prochaine cellule de la boucle
End Sub