Arret macro

[SIZE=2]Sub Traitement()
[COLOR=navy]Dim [/COLOR]C[COLOR=navy] As [/COLOR]Range
      ActiveSheet.Cells.ClearContents
      [COLOR=green]'Mise en place du gestionnaire d'erreur[/COLOR]
      [COLOR=navy]On Error GoTo[/COLOR] Erreur
      Application.EnableCancelKey = xl[COLOR=navy]Error[/COLOR]Handler
      [COLOR=green]'Boucle de traitement (interruption par la touche Echap)[/COLOR]
      [COLOR=navy]For Each[/COLOR] C[COLOR=navy] In [/COLOR]ActiveSheet.Cells
            C.Value = "X"
      [COLOR=navy]Next[/COLOR] C
[COLOR=navy]Exit Sub[/COLOR]

Erreur:
      [COLOR=navy]If [/COLOR]Err = 18 [COLOR=navy]Then[/COLOR]            [COLOR=green]'La touche Echap a été frappée[/COLOR]
            [COLOR=navy]If [/COLOR]MsgBox("Je suis en attente !" & vbLf & "Dois-je continuer ?", vbYesNo) = vbYes [COLOR=navy]Then[/COLOR]
                  [COLOR=navy]Resume[/COLOR]
            [COLOR=navy]End If[/COLOR]
      [COLOR=navy]End If
End[/COLOR] Sub[/SIZE]