Copier une cellule dans un autre onglet suivant une valeur

Sub test()
noColonneOuiNon = 1
Set plage = ActiveSheet.Columns(noColonneOuiNon).Cells
Set nouveauOnglet = ThisWorkbook.Sheets.Add
Set celluleEcriture = nouveauOnglet.Range("A1")
For Each maCellule In plage
    If maCellule.Value = "oui" Then
        maCellule.EntireRow.Copy celluleEcriture
        Set celluleEcriture = celluleEcriture.Offset(1, 0)
    End If
Next maCellule
End Sub

Sub test()
noColonneOuiNon = 4
Set plage = ActiveSheet.Columns(noColonneOuiNon).Cells
ThisWorkbook.Sheets("Feuil2").Cells.ClearContents
Set celluleEcriture = ThisWorkbook.Sheets("Feuil2").Range("A1")
For Each maCellule In plage
    If maCellule.Value = "oui" Then
        maCellule.EntireRow.Copy celluleEcriture
        Set celluleEcriture = celluleEcriture.Offset(1, 0)
    End If
Next maCellule
ThisWorkbook.Sheets("Feuil2").Columns(noColonneOuiNon).Delete
[COLOR="Red"]For Each maForme In ThisWorkbook.Sheets("Feuil2").Shapes
    maForme.Delete
Next maForme[/COLOR]
End Sub