'Collage spécial
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Sheets("Reflet").Range("A1").Select
    Application.CutCopyMode = False

'Editer en PDF
    ActiveSheet.PageSetup.PrintArea = "B2:J" & ligne + 2
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        ThisWorkbook.Path & "\archives\" & nom_fichier _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True