'On zoom a 300 pourcent pour augmenter la qualité de la capture
ActiveWindow.Zoom = 200
'Copie la cellule en tant qu'image
.Range("A1:A3").CopyPicture
'Créer un graphique temporaire
With .ChartObjects.Add(Cells(1, 1).Left, Cells(1, 1).Top, Cells(1, 1).Width, Cells(1, 1).Height).Chart
'Y passe l'image
.Paste
'Exportation dans le répertoire du fichier xl
.Export ThisWorkbook.Path & "\" & Nom_Fichier & "_croquis.jpg", FilterName:="jpg"
End With
'On repasse en zoom 100 pourcent
ActiveWindow.Zoom = 100
'Supprimer le graphique temporaire
.ChartObjects(Feuil1.ChartObjects.Count).Delete