Sub recherche()
For Each cell In Range("E5:E" & Range("E1000").End(xlUp).Row).SpecialCells(xlCellTypeVisible)
If cell.Value = "" Then
cell.Offset(0, 1) = ""
Else
With Worksheets("liste de base").Range("E2:E" & Worksheets("liste de base").Range("E2000").End(xlUp).Row)
Set c = .Find(cell.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
cell.Offset(0, 1) = c.Offset(0, 1)
cell.Offset(0, 2) = c.Offset(0, 2)
Else
Range(cell.Offset(0, 1), cell.Offset(0, 2)) = "?"
End If
End With
End If
Next cell
End Sub