Colorer une cellule

Fermé
SSEE - 23 avril 2013 à 11:08
Bonjour,


j'ai déjà colorié des cellules en fonction d'un " mot " figurant dans la cellule en utilisant le code suivant


Private Sub worksheet_selectionchange(ByVal target As Range)
chaine = target.Value
With target.Interior
If InStr(chaine, "Bonjour") Then .ColorIndex = 36
End With
End Sub


Maintenant je souhaite colorier la cellule adjacente de la même couleure ( i , j+1)

Merci d'avance pour votre aide

SSEE