Selection cellule adjacente

Bonjour ,

avec ce code (trouver sur ce forum) :

Sub colorie()
'
Dim c As Range
For Each c In Sheets("question").Range("C1:C347")
If c = "" Then
c.Interior.ColorIndex = 0
ElseIf c = "x" Then
c.EntireRow.Interior.ColorIndex = 43

End If
Next

plutot que c.entirerow.interior.colorindex=43

j'aimerais qu'il selectionne la cellule voisine cad la b et qu'il la colorie !


Comment faire j'ai essayer beaucoup de choses mais y a pas moyen !
merci pour votre aide !