ERREUR DE COMPILATIONworksheet change

Bonjour,

Lorsque j'exécute le programme ci-dessous, j'ai le message suivant :

Erreur de compilation,
nom ambigu détecté Worksheet_Change

et cela m'emmène à la ligne ci-dessous marquée de ==> ligne erreur

Y a t-il un moyen de réécrire le programme pour éviter cette erreur ?

Merci d'avance,


Private Sub CheckBox1_Change()
Call ModifC19
End Sub

Private Sub CheckBox1_Click()
CheckBox1.Caption = IIf(CheckBox1, "+ 65 ans", "- 65 ans")
End Sub

Private Sub CheckBox2_Change()
Call ModifC19
End Sub

Private Sub CheckBox2_Click()
CheckBox2.Caption = IIf(CheckBox2, "2 Personnes", "1 Personne")
End Sub

Private Sub CheckBox3_Click()
End Sub

Private Sub ComboBox1_Change()
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Range("b4,d4,C9,C10,d13,D14,d15"), Target) Is Nothing Then Call ModifC19
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub
==> ligne erreur Private Sub Worksheet_Change(ByVal R As Range)
If R.Address = "$B$4" Then [B9] = [B4] - [B6]
If R.Address = "$D$4" Then [D9] = [D4] - [D6]
End Sub
Private Sub CheckBox1_Click()
[B6].Font.ColorIndex = IIf([B5] = False, 1, 2)
[B7].Font.ColorIndex = IIf([B5] = False, 2, 1)
If CheckBox1 Then
UserForm1.Show: [B7] = "": [B9] = "": [A8] = 1
Else
[A8] = "": [B9] = [B4] - [B6]
End If
End Sub
Private Sub CheckBox2_Click()
[D6].Font.ColorIndex = IIf([D5] = False, 1, 2)
[D7].Font.ColorIndex = IIf([D5] = False, 2, 1)
If CheckBox2 Then
UserForm1.Show: [D7] = "": [D9] = "": [A8] = 2
Else
[A8] = "": [D9] = [D4] - [D6]
End If
End Sub