Pblm de syntax

Salut a tous,

je suis en train de faire une petite macro pour faire une mise en forme conditionnel avec plus de 3 conditions.
J'ai commencer a le faire et ca marche pas mal avec une page "index" qui te donne le type de format selon la valeur de la cellule; code ci dessous.

If code.Value = cellule.Value Then
cellule.Interior.ColorIndex = code.Offset(0, 1).Interior.ColorIndex
Exit Sub
End If

Cependant, j'aimerai inserer une fonction search car en fait, la reference a la mise en forme est du texte, mais la cellule a mettre en forme contient de nombreux caractere, et la fonction search me permetterai de chercher une partie de la cellule et de la formater.

en gros, c'est au niveau du : If code.Value = cellule.Value Then que ca bug je crois.

Enfin si vous avez une idee c'a m'aiderai beaucoup car la je bug.

A titre d'info, j'avais fait une macro avec 3 condition du type:

Range("A1").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=Hallar(""Promocaja"";A1)"
With Selection.FormatConditions(1).Font
.Bold = False
.Italic = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.FormatConditions(1).Interior.ColorIndex = 41
Selection.Copy
Range("B2:H100").Select
Selection.PasteSpecial Paste:=xlPasteFormats

Le Hallar est la fonction Search (en espagnol...), et c'est ca que je souhaiterai retrouve.

Merci pour votre temps et votre aide.