Copier/coller d'une feuille à une autre avec condition

Bonjour,

je recherche une petite aide pour un bout de code. Mon objectif est de copier/coller une cellule d'une feuille dans une autre en fonction de la valeur d'une autre cellule.

En colonne AB j'ai la valeur "Oui" ou "Non". Dès que c'est "Oui" alors il faudrait copier/coller la cellule en colonne B de la même ligne dans la feuille 2 en colonne B2 puis B3 puis B4,...

J'avais tenté ce code mais j'ai toujours des erreurs :

Sub inscription()
Dim c As Range

For Each c In Sheets("Liste membres").Range("AB3:AB200")

If c.Value = "Oui" Then
c.Offset(0, 26).Select
Selection.Copy

Sheets("FFBad").Activate
ActiveSheet.Range("B2").Insert shift:=xlDown

End If
Next

End Sub

En vous remerciant par avance

Bonjour à toi,

je n'ai pas testé mais essai

Application.ScreenUpdating = False

Dim i As Integer
i = 3

While i <= 200
    If Sheets("Liste membres").Cells(i, 28).Value = "Oui" Then
    Sheets("Liste membres").Cells(i, 2).Copy
    Sheets("FFBad").Activate
    Cells(Range("B6500").End(xlUp).Row + 1, 2).Select
    Selection.Paste
    Application.CutCopyMode = False
    Sheets("Liste membres").Activate
    End If
i = i + 1
Wend

Hello et merci pour ton aide,

j'ai une erreur sur "Selection.paste" --> "Propriété ou méthode non gérée par cet objet".

Je ne vois pas trop pourquoi à vrai dire...

Une idée?

Hum,

re-essai avec

Selection.PasteSpecial Paste:=xlPasteValues

Bien vu ça fonctionne!

Merci de ton aide