Bonjour le forum,
Pour imprimer un UserForm j'utilise un des codes de MichelXld :)
Private Sub Cmb_Imprimer_Click()
Dim Ws As Worksheet
keybd_event vbKeySnapshot, 1, 0&, 0&
DoEvents
Set Ws = Sheets.Add
Ws.PageSetup.Orientation = xlLandscape
Ws.Paste...