Imprimer un Useform

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
With Ws
.PageSetup.CenterHorizontally = True
.PageSetup.CenterVertically = True
.PrintOut
End With
End Sub

Code auquel j'ai rajouté : .Delete entre .PrintOut et End With, de façon à supprimer la feuille créée mais Excel me demande si je veux vraiment la supprimer

Comment puis-je faire pour supprimer cette demande d'Excel que je trouve inutile