Copie colle lignes sous condition de plusieurs onglets

Option Explicit

Sub cherche()
Dim ongletcible As Worksheet
Dim ongletrecherche As Worksheet
Dim lignecible As Long
Dim critere As String
Dim lignerecherche As Long

Set ongletcible = ThisWorkbook.Sheets("SEARCH")
lignecible = 6
critere = ongletcible.Cells(2, 2)
For Each ongletrecherche In ThisWorkbook.Sheets
    If ongletcible.Name <> ongletrecherche.Name Then
        lignerecherche = 3
        Do While ongletrecherche.Cells(lignerecherche, 4) <> ""
            If ongletrecherche.Cells(lignerecherche, 4) = critere Then
                ongletrecherche.Rows(lignerecherche).Copy _
                    ongletcible.Rows(lignecible)
                lignecible = lignecible + 1
            End If
            lignerecherche = lignerecherche + 1
        Loop 'Do While recherche.Cells(lignerecherche, 3) <> ""
    End If
Next ongletrecherche
End Sub