excel out of memory sur un worksheet_change évènement

Bonjour,

En l'absence de error resume next, le code suivant génère une erreur ou=
t of memory. Un conseil?

Private Sub Worksheet_Change(ByVal Target As Range)
'On Error Resume Next
If Target = "raz" Then
ActiveSheet.Cells.ClearContents
End If
End Sub

Merci
Pascal