Masquer des lignes de plusieurs onglets

Bonjour à tous,

Je voudrais masquer automatiquement des lignes de plusieurs onglets si ces lignes comportent des cellules avec "X".

J'ai fait une macro qui pour l'instant me masque les lignes que du 1er onglet.

Comment puis-je le dupliquer?

Onglet "Charge": si cellule de la colonne AC contient "X" alors masquer ligne -> OK (Macro si dessous)

Onglet "Commande": si cellule de la colonne K contient "X" alors masquer ligne -> KO

[size=85]Sub Macro2()

Dim I As Long, derl As Long

derl = Range("E" & Rows.Count).End(xlUp).Row

Application.ScreenUpdating = False

For I = 2 To derl

If IsError(Cells(I, 29).Value) Or Cells(I, 29).Text = "X" Then

Rows(I).Hidden = True

End If

Next I

End Sub[/size]

Merci d'avance pour votre aide.

Bonjour Kenobrice, bonjour le forum,

Essaie comme ça :

Sub Macro2()
Dim CH As Worksheet
Dim CO As Worksheet
Dim I As Long, derl As Long

Application.ScreenUpdating = False
Set CH = Worksheets("Charge")
Set CO = Worksheets("Commande")
derl = CH.Range("E" & Rows.Count).End(xlUp).Row
For I = 2 To derl
    If IsError(Cells(I, 29).Value) Or Cells(I, 29).Text = "X" Then
        CH.Rows(I).Hidden = True
    End If
Next I
derl = CO.Range("E" & Rows.Count).End(xlUp).Row 'colonne E à adapter
For I = 2 To derl
    If IsError(Cells(I, 11).Value) Or Cells(I, 11).Text = "X" Then
        CO.Rows(I).Hidden = True
    End If
Next I
End Sub