'Ajouter graphe 1 : Utilisation par semaine
For i = Feuille.ChartObjects.Count To 1 Step -1
Feuille.ChartObjects(i).Activate
If ActiveChart.ChartTitle.Text = Feuille.Name & " Utilisation par semaine" Then
With Feuille.ChartObjects(i)
.CopyPicture
End With
WordDoc.Paragraphs.Add
WordDoc.Paragraphs(WordDoc.Paragraphs.Count).Range.Select
Selection.Paste
DoEvents
Exit For
End If
Next i