Coller avec conditions

Bonjour,

J'ai une première feuille "SOURCE" et je veux coller les lignes comportant un "Oui" dans la feuille "OUI", j'ai un problème au niveau de l'instruction; je récupère une liste avec les cellules sélectionnées dupliquées xfois

Attention si vous lancez la macro'Coller" le fichier devient énorme '(5500 Ko)

Cdlt

Hello vs86963,

un essai de ma part.

Bonne soirée

Bonsoir le forum,

Voir le fichier joint.

Bonjour à tous

Une variante.

Bye !

Bonjour,

avec filtre

P.

Option Explicit
Sub Oui()
Dim Sh1, Sh2 As Worksheet
Dim Lastr&
Set Sh1 = Sheets("source"): Set Sh2 = Sheets("Oui")
Lastr = Sh1.Cells.Find("*", [A1], SearchDirection:=xlPrevious).Row
Sh1.[A1].CurrentRegion.Select
Selection.AutoFilter
ActiveSheet.Range("A1:B" & Lastr).AutoFilter Field:=2, Criteria1:="OUI"
Selection.CurrentRegion.Select
Selection.Copy Sh2.Range("H1")
Sh1.Select
Selection.AutoFilter: [A1].Select
End Sub