Manipulation de texte dans code VB pour Excel

Bonjour,

Je suis en train d'ecrire une petite macro dans excel qui regarde le texte se trouvant dans colonne A, B ou C, et dependemment de ce texte, il doit m'afficher une valeur dans colonne D.

Ca fonctionne très bien si je code le texte exact se trouvant dans la colonne, mais je n'arrive pas a lui dire de regarder une "partie" du texte, par exemple, dans le code ci-dessous, si la colonne A, B ou C contient Lampiris, la colonne D se remplit avec "gaz"
Comment faire pour regarder quelque chose du genre "piris" ou "ampiris" ?
J'ai essayé quelque chose comme *Lampiris*, mais ca ne fonctionne pas ...

##

Function TypeDepense(valeur1, valeur2, valeur3) As Variant

TypeDepense = "UNDEFINED"

If valeur1 = "Lampiris" Then
TypeDepense = "gaz"

ElseIf valeur1 = "LA MOUTONNERIE 1070" Then
TypeDepense = "Boucher"

ElseIf valeur1 = "O.N.E.M." Then
TypeDepense = "Salaire"

ElseIf valeur1 = "Cora" Or valeur1 = "Delhaize" Or valeur1 = "Boucher" Then
TypeDepense = "Nourriture"
ElseIf valeur2 = "Cora" Or valeur2 = "Delhaize" Or valeur2 = "Boucher" Then
TypeDepense = "Nourriture"
ElseIf valeur3 = "Cora" Or valeur3 = "Delhaize" Or valeur3 = "Boucher" Then
TypeDepense = "Nourriture"

End If
End Function

#####

merci !