Option Explicit
Sub Test()
Dim i As Byte, Plage As Range, Cellule, c
Application.ScreenUpdating = False
Set Plage = Range("E2:E13")
For i = 2 To 13
If Cells(i, 2).Value = "B" Then
Cellule = Cells(i, 1).Value
Set c = Plage.Find(Cellule, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
Cells(i, 3).Value = "Youpi!"
Else
Cells(i, 3).Value = "Loupé!"
End If
End If
Next i
Set Plage = Nothing
End Sub