Aide Copie feuille avec tableaux et graph en images

Bonjour

J utilise beaucoup les fonctions, mais je ne connais que très peu le VBA. J'ai un code fonctionnel qui permet de copier une feuille avec des graph et tableaux vers une autre dont on choisit les nom dans une boite de dialogue le voici :

Private Sub annuler_Click()

Unload Me

End Sub

Private Sub ComboBox1_Change()

End Sub

Private Sub Label1_Click()

End Sub

Private Sub OK_Click()

If ComboBox1 = "" Then

MsgBox ("VEUILLEZ SELECTIONNER LA SEMAINE A CREER")

Exit Sub

End If

For I = 1 To Sheets.Count

If UCase(Left(Sheets(I).Name, Len(ComboBox1))) = UCase(ComboBox1) Then

MsgBox ("La feuille " & UCase(ComboBox1) & " existe déjà, si vous désirez regénérer une feuille de données veuillez la supprimer avant toute action")

Exit Sub

End If

Next I

' Copie de la feuille "Reporting" sans les formules pour éviter que les données se mettent à jours

Application.ScreenUpdating = False

Sheets("Reporting").Copy after:=Sheets(Sheets.Count)

With ActiveSheet

.Name = UCase(ComboBox1) & "_" & Format(Now, "yyyy")

With .UsedRange

.Value = .Value

End With

End With

Unload Me

End Sub

Private Sub UserForm_Initialize()

ComboBox1.AddItem "Semaine42"

ComboBox1.AddItem "Semaine43"

ComboBox1.AddItem "Semaine44"

ComboBox1.AddItem "Semaine45"

ComboBox1.AddItem "Semaine46"

ComboBox1.AddItem "Semaine47"

ComboBox1.AddItem "Semaine48"

ComboBox1.AddItem "Semaine49"

ComboBox1.AddItem "Semaine50"

ComboBox1.AddItem "Semaine51"

ComboBox1.AddItem "Semaine52"

End Sub

Donc là tout fonctionne.. Mais le soucis est que certains graphiques restent liés à des données ce que je en veux absolument pas ! Il ne faut pas que les données se mettent à jours.. Donc comment lui dire d'exporter les graphiques en images ?

Merci beaucoup d'avance..