J'ai le code suivant:
Private Sub Worksheet_Change(ByVal Target As Range)
Set KeyCells = Range("C9")
Set isect = Application.Intersect(KeyCells, Range(Target.Address))
If Not isect Is Nothing Then
Application.EnableEvents = False
isect.Value = isect.Value - 40
Application.EnableEvents = True
End If
End Sub
ce que je veux faire, c'est le rendre universel, c'est-à-dire travailler pour toutes les feuilles et non pour une seule. Comment faire?