cacher des lignes colorées

Bonsoir
Je désire cacher des lignes surlignées en gris clair.
J’ai écrit ces quelques lignes en VBA, mais je suis plus que nul.
Cela ne marche pas.

Sub CacheLeslignes ()
Dim rows As Range
For Each Ligne In ActiveSheet.UsedRange.rows
cherché = Application.rows.Interior.Color = 15
If Not (IsError(cherché) Then _
Application.rows.Hidden = True
Next
End Sub

.
Quelqu’un pourrait-il me corriger ces quelques lignes ?
Merci
Francis