Ajout de code VBA

Bonjour,
J'ai le problème suivant :

Une macro ajoute à mon classeur par l'instruction
Charts.Add.

Je souhaite ensuite insérer du code VBA dans le module de
cette feuille de graphique.

J'ai tenté d'utilisé la macro suivante mais le code est
inséré dans le module du Workbook, et pas de la feuille de
graphique.

Merci de votre aide !
JCD

(ci-dessous la macro)
_____________________________________________
Sub Addcode()

Dim wb As Workbook
Dim ws As Chart

Set wb = ActiveWorkbook
Set ws = Sheets("GANTT") 'ma feuille de graphique




Code = "Private Sub Chart_Deactivate()" & vbLf
Code = Code & " Application.DisplayAlerts = False" & vbLf
Code = Code & " Sheets(" & Chr(34) & "GANTT" & Chr(34)
& ").Delete" & vbLf
Code = Code & "End Sub"


wb.VBProject.VBComponents.Item(2).CodeModule.AddFromString
Code

Set ws = Nothing
Set wb = Nothing

End Sub