Bonjour,
Cell n'est défini nulle part et ne correspond donc à rien ici.
Aussi, pour que ton code soit pertinent, il faut faire la recherche cellule par cellule et non pas comme tu l'as fait, sur une plage :
If Range("B51:B61").Value Like "*épis*" Then
Au final, voilà un code potentiel :
Sub épis()
Range("D51:D61").ClearContents
For Each Cell In Range("B51:B61")
If Cell.Value Like "*épis*" Then cell.Offset(0, 2).Value = "Par bocal"
Next Cell
End Sub