Sub test()
Dim c As Range
With Sheets("Feuil1")
For Each c In .Range("C1:C" & .Range("C65536").End(xlUp).Row)
If InStr(1, c.Value, "roue", vbTextCompare) <> 0 Then
c.Copy Sheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0)
End If
Next c
End With
End Sub