Bonsoir Marco et Celeda
Une macro qui masque les lignes qui ne contiennent pas au moins une cellule grisée.
Sub MasquerLignes()
Dim i As Integer
Application.ScreenUpdating = False
For i = 2 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
If Cells(i, 1).EntireRow.Interior.ColorIndex <> 48 Then
Cells(i, 1).EntireRow.Hidden = True
Else
Cells(i, 1).EntireRow.Hidden = False
End If
Next i
Application.ScreenUpdating = True
End Sub
Cordialement
CBernardT