Coloriser une ligne par rapport à une cellule

Bonjour à tous,

Ci-joint un petit soucis de réalisation.

Dans la colonne B la macro recherche les X et les colores en rouges

Le code est le suivant:

Option Explicit

Dim C As Range

Sub Supprime_X()

For Each C In Sheets("Feuil1").Range("B1:B" & Range("B65000").End(xlUp).Row)

If InStr(1, C, "X") > 0 Then C.Font.ColorIndex = 3

Next C

End Sub

Il fonctionne à merveille.

Par contre je n'arrive toujours pas à coloriser l'ensemble de la ligne.

Salut Nouveau,

essaye comme ça :

Option Explicit 
Dim C As Range 
Sub Supprime_X() 
For Each C In Sheets("Feuil1").Range("B1:B" & Range("B65000").End(xlUp).Row) 
If InStr(1, C, "X") > 0 Then C.EntireRow.Font.ColorIndex = 3
Next C 
End Sub 

EricF,

MERCIS au pluriel

La réponse est parfaite.

Chapeau.