Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = Range("D1:E1")
If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
MsgBox "La cellule " & Target.Address & " a été modifiée."
End If
End Sub