XL 2013 Insérer le contenu d'une cellule dans un Userform.

Sub Rectangle1_Cliquer()
    UserForm1.TextBox1 = Format(Sheets("Feuil2").Range("D2"), "# 000.00€")
    UserForm1.Show
End Sub

Sub Rectangle1_Cliquer()
Application.ScreenUpdating = False
With Sheets("Feuil2")
    .Visible = -1
    .Select
    Range("a1:k20").Select
    ActiveSheet.PageSetup.PrintArea = "$A$1:$k$20"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
    .Visible = 0
End With
Sheets("Feuil1").Select
Range("A1").Select
Application.ScreenUpdating = True
End Sub

Sub EnregPDF()
Chemin = "C:\Users\PC_PAPA\Desktop\XLD\"    ' Modifier le chemin
NomFichier = "EssaiEnPDF.pdf"               ' Modifier le nom du chemin, ou le construire ( avec la date par ex )
Application.ScreenUpdating = False
With Sheets("Feuil2")
    .Visible = -1
    .Select
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & NomFichier, Quality:=xlQualityStandard _
        , IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    .Visible = 0
End With
Sheets("Feuil1").Select
Range("A1").Select
Application.ScreenUpdating = True
End Sub

& "_le_" & Format(Now(), "DD-MM-YYYY HH MM SS")