Copier coller si...

Sub Macro1()
Dim D  As Worksheet 'déclare la varaible D (onglet Données)
Dim O  As Worksheet 'déclare la varaible O (onglet Oui)
Dim TV As Variant 'déclare la varaible TV (Tableau des Variables)
Dim I As Integer 'déclare la varaible I (Incrément)
Dim DEST As Range 'déclare la varaible DEST (cellule de DESTination)

Set D = Sheets("Données") 'définit l'onglet D (à adapter à ton cas)
Set O = Sheets("oui") 'définit l'onglet O
O.Cells.ClearContents 'efface d'éventuelles anciennes données
TV = D.Range("A1").CurrentRegion 'définit le tableau des valeurs TV
For I = 1 To UBound(TV, 2) 'boucle sur toutes les colonnes I du tableau des valeurs TV
    If TV(2, I) = "oui" Then 'condition : si la valeur en ligne 2 de la colonne I est égale à 2
        'définit la cellule de destination DEST (A1 si A1 est vide, sinon la premiere cellule vide de la ligne 1 de l'onglet "oui")
        Set DEST = IIf(O.Range("A1") = "", O.Range("A1"), O.Cells(1, Application.Columns.Count).End(xlToLeft).Offset(0, 1))
        DEST.Resize(UBound(TV, 1), 1).Value = Application.Index(TV, , I) 'revoie la colonne dans DEST
    End If 'fin de la condition
Next I 'prochaine colonne de la boucle
End Sub