macro et classeur partagé

bonjour
j'ai créé la macro suivante dans un classeur non partagé.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a:a")) Is Nothing Then
Target.Offset(0, 1).Select
End If
If Not Intersect(Target, Range("b:b")) Is Nothing Then
Target.Offset(0, 4).Select
End If
End Sub

celle-ci fonctionne très bien après l'enregistrement.
qd je partage le classeur et que je l'enregistre, la macro ne fonctionne plus. Pourtant j'ai lu sur plusieurs posts et sur d'autres sites que si on ne pouvait pas modifier une macro dans un classeur partagé, elle fonctionnait quand même.

y t-il qq chose à faire?
merci
A+
poc