Filtrer couleur sous excel 2002 vba

Bonjour,

j'aimerais filtrer sur plusieurs colonnes des couleurs, j'ai commencé un code qui fonctionne sur la colonne A , et j'aimerais l'etendre sur toutes les autres colonnes, mais je suis bloqué !!
voici mon code.

Sub AfficherJaune()
Dim cel As Range
Rows.Hidden = False
For Each cel In Range("A2:A" & Range("A500").End(xlUp).Row)
If cel.Interior.ColorIndex <> 6 Then
cel.EntireRow.Hidden = True
End If
Next cel
End Sub

pour l'instant , la macro ne fonctionne que sur la colonne A .. j'aimerais de A à K.

Merci beaucoup.