Dim Ws As Worksheet
'Copie d'écran de la forme active
keybd_event vbKeySnapshot, 1, 0&, 0&
DoEvents
'Ajoute une feuille pour coller l'image de la forme
Set Ws = Sheets.Add
Ws.Paste
Me.Hide
With Ws
.Shapes("Image 1").IncrementLeft 100 ' valeur à adapter
.Shapes("Image 1").IncrementTop 140 ' valeur à adapter
.PrintPreview ' permet de visualiser avant l'impression; à supprimer
' quand réglages faits
'.PrintOut ' mis en commentaires le temps des réglages
' puis supprimer l'apostrophe
End With
Me.Show