Bonjour,
je ne suis pas certaine d'avoir compris le blocage désiré.
sur la page de Module1
Public valeur As Variant
sur la page de ThisWorbook
Private Sub Workbook_Open()
valeur = ActiveCell.Value
End Sub
[code]Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
With Sh
valeur = .Range(Target.Address).Value
End With
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False
With Sh
.Range(Target.Address).Value = valeur
End With
Application.EnableEvents = True
End Sub
Sub reset_Events() 'au cas ou
Application.EnableEvents = True
End Sub