Plusieurs "ET" dans une même ligne avec workbook différents

Bonjour à tous,

Je suis un peu embêté, Je fait une fonction "cherche et trouve", si trouve = faux alors.....

• colorie la ligne en rouge
• copie la ligne
• colle la ligne à la fin d'un tableau dans un autre workbook

Voila le morceau de code qui marche :

If trouve1 = False Then Rng1.EntireRow.Interior.ColorIndex = 3 And Rng1.EntireRow.Copy

Mais je veux rajouter :

WkbP.Activate
      Range("A3").End(xlDown).Offset(1, 0).Select
      ActiveSheet.Paste

Avec RNG1 as a range

WkbP as a Workbook

Trouve1 As Boolean

Merci pour votre aide

Bonjour

Essaie ça :

    If trouve1 = False Then
        Rng1.EntireRow.Interior.ColorIndex = 3
        Rng1.EntireRow.Copy
        WkbP.Activate
        Range("A3").End(xlDown).Offset(1, 0).Select
        ActiveSheet.Paste
    End If

Résultat ?

Bye !

Sa marche ! merci beaucoup !

Je ne sais pas pourquoi mais j'avais fait un code du même genre et la macro s’exécutait la condition fausse ou vraie...