worksheet_changeで無限ループ(EnableEvents)

イベントを一旦停止して、値を書き換えた後にイベントを発生を有効にするといいサァ
Application.EnableEvents = False
Cell値代入
Application.EnableEvents = True