Faire apparaitre Userform

Sub Macro1()
Sheets("Signalements").Unprotect
Application.ScreenUpdating = False
  With Sheets("IMPRIM")
    .Visible = True
    Range("D15:P50").Copy
    Application.Goto Reference:="IMPRIM!R6C4"
    ActiveSheet.Paste Link:=True
    Application.Goto Reference:="Signalements!R6C4"
    .PrintOut Copies:=1, Collate:=True
    Range("A13:M260").ClearContents
    ActiveWindow.SelectedSheets.PrintPreview
    .Visible = False
End With
With ActiveSheet
    .EnableSelection = xlNoRestrictions
    .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True, AllowSorting:=True, AllowFiltering:=True
End With
Application.ScreenUpdating = True
End Sub