Copier coller avec qques conditions

Bonjour le forum

Encore un copier coller mais avec des conditions.

Je souhaite copier coller des cellules dans un autre feuille mais avec des conditions :

J'avais bricolé cette formule mais je souhaite l'optimiser :

Sub Copy_paste()
'
    Dim WsScr As Worksheet, WsDest As Worksheet, MaPlage As Range

    Set WsScr = Worksheets("Données")
    Set MaPlage = WsScr.Range("A2:I4000").SpecialCells(xlCellTypeVisible)
    ' special cell ne copie que les cellules visibles a enlever si on veut tout'

  ' colle dans feuille prédéfinie'

    Set WsDest = Worksheets("DV-en-retard")
    MaPlage.SpecialCells(xlVisible).Copy WsDest.Range("A2")

Je veux copier les cellules qui contiennent le mot "yes" dans la colonne D de ma feuille Données, et les coller dans la premiere ligne vide de ma feuille DV en retard

Comment faire ?

Merci

Hello,

Tu ne copie que les cellules visibles, ma question arrive => masque tu les lignes que tu ne souhaite pas copier ?

Si c'est le cas il te suffit de créer un bout de macro qui masque les lignes qui ne contiennent pas "Yes" avant d'appeler la macro qui copie.

Un petit fichier test disponible pour nous aider ?

Merci de votre aide

Un fichier test.

Bonjour

J'ai essayéun nouveau code mais cela ne fonctionne pas rien ne s'affiche.

JE ne comprends pas pourquoi

Hello !

Je me suis cassé la tête à comprendre le pourquoi, je pense que c'est à cause de ce tableau de couleur que le cell().end(xlup) ne "fonctionne" pas (si tu regarde bien, ta macro colle tout en bas des couleurs, la cellule a beau être vide, elle la compte quand même )

J'ai bidouillé une macro mais c'est pas du grand art ^^"

à tester et re-tester pour éviter les problèmes

Merci