Tri par ordre alphabétique en VBA

Bonjour le forum,

est-il possible (je suppose que oui) de faire un tri automatique dans un code alors que celui-ci est en mode partagé ?

Par exemple, quand j'enregistre une nouvelle inscription dans une base de données, j'aimerais que cette base se place en ordre alphabétique en incluant la nouvelle donnée. Tout fonctionne mais lorsque je partage le classeur cela ne fonctionne plus. L'ordre alphabétique est maintenu de la ligne 8 à la ligne 222, puis ensuite tous les noms sont en bazars.

'Trier par ordre alphabétique
Range("B9").Select
  With ActiveSheet.Sort
   .SortFields.Clear
   .SortFields.Add Key:=Range("B9"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
   .SetRange Range("A9:ER999" & DerLig)
   .Header = xlYes
   .MatchCase = False
   .ORIENTATION = xlTopToBottom
   .SortMethod = xlPinYin
   .Apply
  End With
 Range("A9").Select
 

Je ne souhaite pas faire ce tri manuellement puisque la base de données est une feuille cachée.

Merci pour votre aide.

Bonjour, j'imagine que le partage en est la cause.

Il faudrait peut-être lancer la macro de tri au moment de la fermeture d'excel dans l'évenement before close.

le dernier utilisateur ne serait plus géné par les autres et le tri serait sur la totalité.

Ca fonctionne !

Merci !