Récupérer Graph Excel sur Word

Bonjour,

J'ai crée un début de macro sur Word, dont l'objectif est de récupérer des feuilles excel, sur lesquelles il y a un graphique.

Dans l'idée, j'ai inséré un "&" dans chaque feuille pour que ma macro puisse récupérer et afficher sur word les feuilles excel possédant ce "&" dans leurs noms, et dans un second temps en fonction de la couleur de la feuille.

Sub récupération()
On Error GoTo fin
 Dim i As Integer
 Dim j As Integer
Dim couleur() As Integer
Dim nom_fichier_excel As String
Dim nom_graphe As String
Dim spl() As String
ReDim couleur(1 To 5)
Dim fs As New FileSystemObject

couleur(1) = 16
couleur(2) = 46
couleur(3) = 5
couleur(4) = 7
couleur(5) = 10

With Application.FileDialog(msoFileDialogFilePicker)
      .Title = "Selectionnez le fichier excel voulu"
      .Filters.Add "Fichiers excel", "*.xls; *.xlsx", 1
      .FilterIndex = 2
      .Show
      .AllowMultiSelect = False
      nfichier = .SelectedItems(1)
    End With
    spl = Split(nfichier, "\")
    'C'est à partir d'ici que je bloque
  For i = 1 To exl.Sheets.Count
        spl = Split(exl.Sheets(i).Name, "&")
        If exl.Sheets(i).Name <> spl(0) Then
            j = 0
            trouve = 0
            Do While trouve = 0
                j = j + 1
                If j = 6 Then GoTo skyp
                    If exl.Sheets(i).Tab.ColorIndex = couleur(j) Then
                        trouve = 1
                    End If
            Loop
            exl.Sheets(i).Select
            exl.Sheets(i).ChartObjects(1).Activate 'Activate
            nom_graphe = exl.ActiveChart.ChartTitle.text
            Print #j, nom_graphe + " = " + exl.Sheets(i).Name

End Sub

Merci d'avance pour votre aide.