Sub MacroQuelconque()
On Error GoTo handleCancel
Application.EnableCancelKey = xlErrorHandler
For x = 1 To 1000000
t = x + 1 * x ^ 2 'ici un exemple bidon. Ce peut être ta macro
Next x
handleCancel:
If Err = 18 Then
MsgBox 'La macro est arrètée'
End If
End Sub