Private Sub Bouton2_Cliquer()
Dim Ws As Worksheet
Application.ScreenUpdating = False
Application.CutCopyMode = False
ActiveWorkbook.Sheets.Add After:=Sheets(Sheets.Count)
Set Ws = ActiveSheet
UserForm1.Repaint
keybd_event vbKeySnapshot, 1, 0&, 0&
DoEvents
With Ws
.Paste
End With
Unload UserForm1
Application.ScreenUpdating = True