Masquage/affichage lignes

Option Explicit
Sub Supprimer_masquer()
    Dim toto
    Dim c As Range
    With Application: .ScreenUpdating = False: .EnableEvents = False: End With
        toto = Selection
        With Sheets("Feuil1")
            Set c = .Columns(1).Find(toto)
            If Not c Is Nothing Then c.Offset(, 26) = 1: c.EntireRow.Hidden = True: c.Offset(, 26) = "":
        End With
        With Sheets("Feuil2")
            Set c = .Columns(1).Find(toto)
            If Not c Is Nothing Then c.Offset(, 26) = 1: c.EntireRow.Hidden = True: c.Offset(, 26) = "":
        End With
        Selection = ""
        With Application: .EnableEvents = True: .ScreenUpdating = True: End With
End Sub

Option Explicit
Sub Supprimer_masquer()
    Dim toto
    Dim c As Range
    With Application: .ScreenUpdating = False: End With
        Sheets("Parametres").Unprotect Password:=""
        toto = Selection
        With Sheets("Feuil1")
            Set c = .Columns(1).Find(toto)
            If Not c Is Nothing Then c.Offset(, 26) = 1: c.EntireRow.Hidden = True: c.Offset(, 26) = "":
        End With
        With Sheets("Feuil2")
            Set c = .Columns(1).Find(toto)
            If Not c Is Nothing Then c.Offset(, 26) = 1: c.EntireRow.Hidden = True: c.Offset(, 26) = "":
        End With
        Selection = ""
        Sheets("Parametres").Protect Password:=""
    With Application: .ScreenUpdating = True: End With
End Sub

Option Explicit
Sub Mettre_à_jour_masquer_si()
    Dim o As Worksheet, i As Long
    Application.ScreenUpdating = False
    Sheets("Parametres").Range("a5:a22").Copy Destination:=Sheets("Feuil1").Range("a5")
    Sheets("Parametres").Range("a5:a22").Copy Destination:=Sheets("Feuil2").Range("a5")
    For Each o In Worksheets
        If o.Name <> "Parametres" Then
            For i = Cells(Rows.Count, "a").End(xlUp).Row To 5 Step -1
                If Range("a" & i) <> "" Then  o.Rows(i).EntireRow.Hidden = False Else: o.Rows(i).EntireRow.Hidden =  True
            Next
        End If
    Next
    Application.ScreenUpdating = False
End Sub