Sub AffichageDesGraph(Graph)
Dim i As Integer
For i = 1 To 6
If Graph = i Then
UserForm1.Controls("image" & i).Visible = True
Const fichier = "c:tempgraphique.gif"
If Graph = 1 Then 'graph nombre sortie boule
[COLOR=red][B]Sheets("Feuil4").ChartObjects(1).Chart.Export fichier, "gif"[/B][/COLOR]