Sub essai()
Dim cellule As Range
Dim trouve As Range
Columns("F:F").ClearContents
For Each cellule In Range([A1], [A1].End(xlDown))
Set trouve = Range([B1], [B1].End(xlDown)).Find(cellule.Value, [COLOR=Blue][B]LookIn:=xlFormulas, lookat:=xlWhole[/B][/COLOR])
If trouve Is Nothing Then
[F65536].End(xlUp).Offset(1, 0).Value = cellule.Value
End If
Next
End Sub