Aplliquer 2 macros sans que la 1ère écrase la 2ème

Bonjour,

J'ai créer 2 macros qui fonctionnent très bien individuellement mais lorsque je les lancent l'une après l'autre, la seconde annule la première ; j'ai donc tenté de n'en faire qu'une seule qui donne ceci :
Sub Macrolignes()
'
' Macrolignes Macro
' Macro enregistrée le 14/01/2013 par RATP
'

ActiveSheet.Unprotect
For Each work In Worksheets
work.Activate
With work
If work.Name <> "Accueil" And work.Name <> "MDG" Then
.Columns("AL:AL").Select
selection.AutoFilter
selection.AutoFilter Field:=1, Criteria1:="1"
.Columns("AJ:AJ").Select
selection.AutoFilter
selection.AutoFilter Field:=1, Criteria1:="=A", Operator:=xlOr, _
Criteria2:="<>0"
End If
End With
Next work
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True
End Sub


Mais je renconter la même problème...

Avez-vous une solution svp ???