Bonjour Lapou, le Forum
Tiens vu que tu fréquentes un peu ce Forum, tu devrais pourtant savoir qu'ici un petit Bonjour fait toujours plaisir...
Sinon un code comme ceci devrait faire ton affaire :
Sub ColorFilter()
Dim Cell As Range
Application.ScreenUpdating = False
For Each Cell In Range("A1:A1000")
If Cell.Interior.ColorIndex = xlNone Then
Rows(Cell.Row).Hidden = True
End If
Next
Application.ScreenUpdating = True
End Sub
Bon Après Midi
@+Thierry