Bouton pr faire un imprime ecran d'un Userform

Private Declare Sub keybd_event Lib "user32" _
(ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)

Private Sub CommandButton1_Click()
keybd_event vbKeySnapshot, 0, 0&, 0&
DoEvents
Application.ScreenUpdating = False
Me.Hide
Sheets.Add
    With ActiveSheet
        .Paste .Range("A1")
        .PrintPreview   'supprimme cette ligne si tu ne souhaites pas de prévisualisation
        '.PrintOut      'et décoche cette ligne
        Application.DisplayAlerts = False
        .Delete
        Application.DisplayAlerts = True
        Application.ScreenUpdating = True
    End With
Me.Show

End Sub