Sub essai()
Sheets("Feuil2").Cells.Clear
For lig = 1 To [A65536].End(xlUp).Row
If Range("A" & lig).Value Like "*CMR*" Then
With Sheets("Feuil2")
.Range("A" & .[A65536].End(xlUp).Row + 1).Value = Range("A" & lig).Value
End With
End If
Next
End Sub
Sheets("Feuil2").Activate