'*** IMPORTANT : Rajout qui module la mise en page en fonction du nombre de candidats.
[COLOR=#ff0000]Stop[/COLOR]
Dim dercol As Long, derlig As Long
dercol = Range("A1:P3000").Find("*", , , , , xlPrevious).Column
derlig = Cells.Find("*", , , , xlByRows, xlPrevious).Row
ActiveSheet.PageSetup.PrintArea = Range("G1", Cells(derlig, dercol)).Address
Range("E9").Select
ActiveWindow.View = xlPageBreakPreview