hlo,
en espérent que ça convienne
Dim prem As Integer
Dim der As Integer
Dim i As Integer
For i = 1 To 500
If (Cells(i, 7).Value = "" Or Cells(i, 2).Value = "") And (Cells(i + 1, 7).Value <> "" Or Cells(i + 1, 2).Value <> "") Then
prem = i
ElseIf (Cells(i, 7).Value <> "" Or Cells(i, 2).Value <> "") And (Cells(i + 1, 7).Value = "" Or Cells(i + 1, 2).Value = "") Then
der = i
End If
Next
Worksheets("Sheet1").PageSetup.PrintArea = "$A$" & prem & ":$C$" & der
@