Coller une ligne avec condition

Bonjour,

Je veux faire un test sur le contenu d'une cellule , si ce dernier contient une certaine valeur alors je dois copier la ligne entière , celle qui contient la valeur de la cellule en question et la mettre dans une autre feuille ( voir un autre classeur )

En pièce jointe l'exemple

Merci pour votre passage

Bonjour,

Private Sub CommandButton1_Click()
Dim Cel As Range
    With Worksheets("Feuil1")
        For Each Cel In .Range("D1:D" & .Range("D" & Rows.Count).End(xlUp).Row)
            If Cel.Value = "S003U" Or Cel.Value = "S004R" Then
                Cel.Offset(0, -1).Resize(, 4).Copy _
                Worksheets("Feuil2").Range("E" & Worksheets("Feuil2").Range("E" & Rows.Count).End(xlUp).Row + 1)
            End If
        Next Cel
    End With
End Sub

A+