arrêter une boucle infinie

Sub Toto()
   Dim MaxCompteur As Integer
   
   Do Until X = Y Or MaxCompteur = 10000
      
      'Opérations normales ici
      
      'Incrémentation du compteur
      MaxCompteur = MaxCompteur + 1
   Loop

End Sub

On Error GoTo handleCancel
Application.EnableCancelKey = xlErrorHandler
MsgBox "This may take a long time: press ESC to cancel"
For x = 1 To 1000000    ' Do something 1,000,000 times (long!)
    ' do something here
Next x

handleCancel:
If Err = 18 Then
    MsgBox "You cancelled"
End If