VBA critère ligne jaune

Bonsoir, j'ai trouvé une macro sympa pour gérer les colonnes.

Mais voila je n'ai pas réussi a adapter la macro suivante :

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("a4", "c1:c2")) Is Nothing Then 'Variante avec "c1:c2" finalement inutilisée, mais tant pis
    Application.ScreenUpdating = False
    On Error Resume Next
    ActiveSheet.ShowAllData
    On Error GoTo 0
   If Range("c1") = "" And Range("c2") = "" Then
    Range("A5:G" & Range("A" & Rows.Count).End(xlUp).Row).AdvancedFilter Action:=xlFilterInPlace, _
    CriteriaRange:=Range("a3:d4"), Unique:=False
    Else
    Range("A5:G" & Range("A" & Rows.Count).End(xlUp).Row).AdvancedFilter Action:=xlFilterInPlace, _
    CriteriaRange:=Range("a3"), Unique:=False
    End If
    Application.GoTo Range("a1"), Scroll:=True
    Target.Offset(0, 1).Activate
End If
Rows(5).Hidden = True
End Sub

Ma cellule de recherche et juste en A3

Donc j'aimerais adapter cette macro a mon fichier et savoir aussi ce que je doit changer si je l'adapte a d'autre fichier excel.

Merci d'avance de votre aide

Rechercher des sujets similaires à "vba critere ligne jaune"