Erreur sur Macro de tri

Bonjour,

quand je passe de 2010 à 2003, mes macros de tri ne marchent plus:
Qui peut m'aider?
Sub classeréquipe()
'
' classeréquipe Macro
' Macro enregistrée le 01/05/2013 par Jean-Yves Dalverny
'

'feuil(1).Protect"3132",UserInterfaceOnly:=True '3132
Range("A6:E40").Select
ActiveSheet.Unprotect
Selection.Sort Key1:=Range("E6"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False
End Sub

Elle me demande le code ou refuse et colorié en jaune les lignes Selection.........................
où est mon erreur?
A bientôt de vous lire
JYD