XL 2016 Masquer et afficher lignes

    ' Si une cellule colorée a été trouvée
    If lastRowWithColor > 0 Then
        ' Masquer les lignes situées en dessous de la dernière ligne colorée jusqu'à la ligne 61
        ws.Rows(lastRowWithColor + 1).Resize(61 - lastRowWithColor).Hidden = True
    End If
    
    ' Si une cellule colorée a été trouvée
    If firstRowWithColor > 0 Then
        ' Masquer les lignes situées au-dessus de la première ligne colorée jusqu'à la ligne 5
        ws.Rows(5).Resize(firstRowWithColor - 5).Hidden = True
    End If

Sub MasquerLignesSansCouleur_5()
    Dim ws As Worksheet
    Dim cell As Range
    Dim firstRowWithColor As Long
    Dim lastRowWithColor As Long
    Dim row As Long
    
    ' Utiliser la feuille active
    Set ws = ActiveSheet
    
    ' Réinitialiser les variables
    firstRowWithColor = 0
    lastRowWithColor = 0
    
    ' Parcourir les lignes de 5 à 61
    For row = 5 To 61
        ' Vérifier si la ligne contient une cellule colorée
        For Each cell In ws.Range("B" & row & ":P" & row)
            If cell.Interior.ColorIndex <> xlNone Then ' Comparer avec "sans couleur"
                ' Mettre à jour la première ligne contenant une cellule colorée
                If firstRowWithColor = 0 Then
                    firstRowWithColor = row
                End If
                ' Mettre à jour la dernière ligne contenant une cellule colorée
                lastRowWithColor = row
                Exit For ' Sortir de la boucle si une cellule colorée est trouvée
            End If
        Next cell
    Next row
    
    ' Masquer les lignes situées en dessous de la dernière ligne colorée jusqu'à la ligne 61
    If lastRowWithColor > 0 Then
        If lastRowWithColor + 2 < 61 Then
            ws.Rows(lastRowWithColor + 3 & ":61").EntireRow.Hidden = True
        End If
    End If
    
    ' Masquer les lignes situées au-dessus de la première ligne colorée jusqu'à la ligne 5
    If firstRowWithColor > 0 Then
        If firstRowWithColor > 5 Then
            ws.Rows("5:" & firstRowWithColor - 2).EntireRow.Hidden = True
        End If
    End If
End Sub