Pb insertion graphique dans un userform

Dim Chrt As clsEventChartSpace
Dim CS As Control
Dim C As Object
 
Private Sub UserForm_Initialize()
If Renseigne Then
  With Me
    .Height = 360
    .Width = 625
  End With
  Set CS = Me.Controls.Add("OWC11.ChartSpace.11")
  With CS
    .Top = Me.Top + 2
    .Left = Me.Left + 2
    .Height = Me.Height - 47
    .Width = Me.Width - 8
    Set C = .Constants
    Set CHT = .Charts.Add
  End With
  Set LB = Me.Controls.Add("forms.Label.1")
  With LB
    .Top = CS.Height + 5
    .Left = 10
    .Height = 10
    .Width = 180
  End With
  With CHT
    .Type = C.chChartTypeLineMarkers
    .SeriesCollection.Add
    .SetData C.chDimCategories, C.chDataLiteral, DATA1
    .SeriesCollection(0).SetData C.chDimValues, C.chDataLiteral, DATA2
    .SeriesCollection(0).Interior.Color = 240 'RGB(0, 0, 240)
  End With
  
  '--- Pour les évènements ---
  Set Chrt = New clsEventChartSpace
  Set Chrt.myChartSpace = CS
  '---------------------------
Else
  Me.Caption = "Ne pas lancer directement le UserForm à partir de lui-même"
End If
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Set LB = Nothing
Set C = Nothing
Set CHT = Nothing
Set CS = Nothing
Set Chrt = Nothing
End Sub

'####################################################################################
'### Nécessite la référence Library OWC11
'### C:\Program Files\Fichiers communs\Microsoft Shared\Web Components\11\OWC11.DLL
'### Microsoft Office Web Components 11.0
'####################################################################################

Const FEUILLE As String = "ORYS"

Public Ligne&
Public DATA1
Public DATA2
Public Renseigne As Boolean
Public CHT As Object 'OWC11.ChChart
Public LB As MSForms.Label

Sub LaunchUSF()
Dim S As Worksheet
Dim T1()
Dim T2()
Dim i&
Set S = Sheets(FEUILLE)
Ligne& = ActiveCell.Row
If Ligne& < 3 Or Ligne& > 6 Then
  MsgBox "Veuillez sélectionner une cellule dans la plage concernée"
  Exit Sub
End If
For i& = 1 To 12
  ReDim Preserve T1(1 To i&)
  T1(i&) = S.Cells(2, i& + 3)
  ReDim Preserve T2(1 To i&)
  T2(i&) = S.Cells(Ligne&, i& + 3)
Next i&
Set S = Nothing
Renseigne = True
DATA1 = T1
DATA2 = T2
UserForm1.Show
End Sub

Public WithEvents myChartSpace As OWC11.ChartSpace

Private Sub myChartSpace_MouseDown(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y As Long)
Randomize
CHT.SeriesCollection(0).Interior.Color = Int(((256 ^ 3) * Rnd) + 1)
End Sub

Private Sub myChartSpace_MouseMove(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y As Long)
With LB
  .Caption = "Coordonnées graphique X: " & x & "  Y: " & y
End With
End Sub