Sub Liste()
Application.ScreenUpdating = False
With Sheets("Feuil1") 'feuille source
.AutoFilterMode = False
.[1:1].Insert 'insertion de ligne si pas de ligne de titres
.[B:B].AutoFilter 1, "Yes" 'filtre automatique
With Sheets("Feuil2") 'feuille de destination à adapter
.[A:A].Clear
Sheets("Feuil1").[A:A].SpecialCells(xlCellTypeVisible).Copy .[A1]
.[1:1].Delete 'suppression ligne
End With
.[1:1].Delete 'suppression ligne
.AutoFilterMode = False
End With
End Sub