Hello, hello

est-ce que quelqu'un saurait pourquoi ce code provoque un crash d'excel?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim laPlage1 As Range
Dim laPlage2 As Range
Dim laSuperplage As Range
 
 
Set laPlage1 = Range(Cells(1, 1), Cells(5, 1))
Set laPlage2 = Range(Cells(1, 3), Cells(5, 3))
Set laSuperplage = Union(laPlage1, laPlage2)
 
If Not Application.Intersect(Target, laSuperplage) Is Nothing Then
'si l'on change une valeur dans une cellule comprise entre (1,1) et (3,1)
 
Target.Value = "dintin"
 
Else
'si l'on change la valeur d'une cellule ailleurs dans la feuille
MsgBox ("t'as changé ailleurs")
Exit Sub
 
End If
 
End Sub
j'ai droit à un message "aucun debugger jit inscrit n'a été spécifié".

A noter que lorsque l'on remplace la ligne

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Target.Value = "dintin"
par, par exemple:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
MsgBox ("t'as changé un truc")
hé bien tout marche bien.

Étonnant, non?