Bonjour Paul, Bonjour le Fofo,
Au début de ta procédure, tu peux désactiver le mode partagé de ton classeur avec le code ci-dessous :
Sub Partage_Off()
' Désactivation du partage pour permettre le lancement des macros
Application.DisplayAlerts = False ' Pas de message d'erreur
ActiveWorkbook.ExclusiveAccess ' Accès exclusif activé !
End Sub
Lancer ta procédure pour "modifier tes segments de TCD"
Et enfin réactiver le mode partagé de ton classeur :
Sub Partage_On()
'Active le partage du classeur
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.FullName, accessMode:=xlShared
Application.DisplayAlerts = True
End Sub