ça a très bien fonctionné, merci beaucoup.
Cependant, certaines feuilles où j'ai plusieurs graphiques, je tape la même formule avec Graphique 2 par exemple (comme ci dessous), et ça ne fonctionne pas, quelqu'un sait à quoi cela est dû ?
Sub Imprime()
Feuil3.ChartObjects("Graphique 2").Chart.PrintOut
End Sub