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