cellules graphiques actives et procédures événementielles

[lulu]

Bonjour,

j'ai un problème avec un fichier sur lequel je souhaiterais créer des cellules graphiques actives.
J'essaye de recycler un fichier mais aparemment il ya des erreurs dans le code

Un graphique est fixé sur une feuille et se met à jour si une case est cochée et celà en fonction de l'emplacement de la cellule sélectionnée

Sur une feuille excel, j'ai défini une procédure évenementielle dont le code dans la feuille est le suivant :


Private Sub CheckBox1_Click()
If CheckBox1 Then
Call UpdateChart
ActiveCell.Select
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Call UpdateChart
End Sub

Logiquement, lorsque je clique la macro UpdateChart est appelée :
Option Explicit

Sub UpdateChart()
Dim TheChartObj As ChartObject
Dim TheChart As Chart
Dim UserRow As Long
Dim CatTitles As Range
Dim SrcRange As Range
Dim SourceData As Range

If Sheets("Feuil1").CheckBox1 Then
Set TheChartObj = ActiveSheet.ChartObjects(1)
Set TheChart = TheChartObj.Chart
UserRow = ActiveCell.Row
If UserRow < 3 Or IsEmpty(Cells(UserRow, 1)) Then
TheChartObj.Visible = False
Else
Set CatTitles = Range("A2:F2")
Set SrcRange = Range(Cells(UserRow, 1), Cells(UserRow, 6))
Set SourceData = Union(CatTitles, SrcRange)
TheChart.SetSourceData _
Source:=SourceData, PlotBy:=xlRows
TheChartObj.Visible = True
End If
End If
End Sub

Le tableau de référence s'étale sur les cellules B9 à M25.
J'ai relié le graphique à la macro et ... ça ne marche pas
le message : erreur d’exécution 9 indice en dehors de la plage et
If Sheets("Feuil2").CheckBox2 Then est souligné en jaune

merci beaucoup de votre précieuse aide