Sub Linecolor()
Dim ws As Worksheet
Dim i As Long
Set ws = Worksheets("feuil1")
With ws
i = 7 'Numéro de la première ligne à tester
While .Range("D" & i).Value <> ""
If .Range("D" & i).Value = "x" Then
.Rows(i).Interior.Color = RGB(255, 0, 0)
End If
i = i + 1
Wend
End With
End Sub