Sub ImprimeSemaine()
Dim DerL As Integer, Plage As Range, i As Integer, LD As Integer, LF As Integer
With Worksheets("Feuil1")
DerL = .Range("A" & Rows.Count).End(xlUp).Row
Set Plage = .Range("A3:I" & DerL)
i = 3
While i < DerL
LD = i 'initialisation ligne de début zone
While Weekday(.Cells(i, 1), 2) < 7 And i < DerL - 6
If i < DerL Then i = i + 8
Wend
LF = i + 6 'initialisation ligne de fin zone
Range("A" & LD & ":I" & LF).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"E:\Planning\Projet final\Planning\PDF_Files\Feuille" & LF & ".xlsm.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
MsgBox LF
i = i + 8
Wend
End With
End Sub