Masquer lignes selon 2 conditions par macro excel

' Module    : Feuil1
' Objet     : Filtrage automatique des colonnes AJ et AK
' 08/01/13
'
'
' Déclaration des options pour l'ensemble du module de feuille
' Une très bonne habitude à prendre, toujours commencer un module par :
Option Explicit
'
' Déclaration des constantes utilisables dans l'ensemble du module
' (connues de toutes les procédures du module)
Private Const refCellule1 As String = "A1"    'Référence de la 1° cellule du tableau
Private Const refColonne1 As String = "AJ"    'Référence de la 1° colonne à filtrer
Private Const strCritère1 As String = "X"     'Critère de filtrage de la 1° colonne
Private Const refColonne2 As String = "AK"    'Référence de la 2° colonne à filtrer
Private Const strCritère2 As String = "0"     'Critère de filtrage de la 2° colonne
'

' Procédures évènementielles du module de feuille
' (exécutée automatiquement lorsqu'un des évènements de la feuille se produit)
'
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
' Mise à jour du filtre à chaque clic droit sur la feuille (sur l'évènement BeforeRightClick)
' 08/01/13
'
  
  'Annuler l'effet normal du clic droit (pas d'affichage du menu contextuel)
  Cancel = True

  'Appeler la procédure de filtrage en indiquant la feuille sur laquelle appliquer le filtre
  Call Filtrer_Colonnes(ActiveSheet)

End Sub

' Autres procédures du module
' (exécutées uniquement lorsqu'elles sont appelées)
'
Private Sub Filtrer_Colonnes(ByRef wsh As Worksheet)
' Procédure de filtrage des colonnes : Met en place / Enlève le filtrage.
' Arguments : wsh                 [in]  Feuille sur laquelle le filtre sera appliqué
' 08/01/13
'
' Déclaration des variables utilisables dans cette procédure
Dim rngTableau As Range          'Tableau contenant les données
Dim intChamp1 As Integer         'Numéro du 1° champ (1° colonne à filtrer)
Dim intChamp2 As Integer         'Numéro du 2° champ (2° colonne à filtrer)
    
  'Si un filtage est déja en place...
  If wsh.FilterMode = True Then
    '... afficher toutes les données et...
    wsh.ShowAllData
    '... quitter la procédure.
    Exit Sub
  End If
  'sinon on continue
  
  'Définir la plage des cellules contenant le tableau
  Set rngTableau = wsh.Range(refCellule1).CurrentRegion
    
  'Si le filtre automatique n'est pas place, l'activer.
  If Not wsh.AutoFilterMode Then rngTableau.AutoFilter
  
  'Définir les numéros des champs à filtrer = numèro de la colonne de la feuille
  intChamp1 = wsh.Columns(refColonne1).Column
  intChamp2 = wsh.Columns(refColonne2).Column

  'Mettre en place le filtrage des deux champs
  rngTableau.AutoFilter Field:=intChamp1, Criteria1:=strCritère1
  rngTableau.AutoFilter Field:=intChamp2, Criteria1:=strCritère2
  
End Sub

Sub xxx()

  If Cells(129, "AK").Value = 0 And Not IsEmpty(Cells(129, "AK").Value) Then
    Rows("1:133").Hidden = True
  Else
    Rows("1:133").Hidden = False
  End If

End Sub