Pb avec une macro et le partage du classeur

[BHRCSC]

Bonjour,

Excel 2007 et 2010
Ci dessous un code qui fonctionne très bien :
Sub tri_noms()
ActiveSheet.Unprotect
Range("A3:Q199").Select
Selection.Sort Key1:=Range("C4"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True, AllowFiltering:=True
Range("B4").Select
End Sub

Quand je partage le classeur (révision/partager le classeur), j'obtiens le message d'erreur suivant :
Erreur d'exécution '1004'
Erreur définie par l'application ou par l'objet
Pourquoi ?

Merci pour votre aide.
Bruno H.