Sub test()
Set Zone = Range("A1:D10")
'parcours des cellules
For Each Cellule In Zone
If Cellule.Value <> Cellule.Offset(20, 0).Value Then
MsgBox "la valeur est passée de " & Cellule.Value & " à " & Cellule.Offset(20, 0).Value
End If
Next Cellule
End Sub