cacher des lignes colorées

[baboulet]

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

 

[Minick]

Salut,

Essai ceci:

Sub CacheLeslignes()
Dim Ligne As Range
For Each Ligne In ActiveSheet.UsedRange.EntireRow
If Ligne.Interior.ColorIndex = 15 Then
Ligne.Hidden = True
End If
Next
End Sub


@+ Minick

 

[baboulet]

bonjour Minick
Merci beaucoup pour votre aide c'est parfait.
Francis