Sub b()
Dim tAdr, i&, j&, x
tAdr = Array(11, 75, 139, 203)
j = 0
'recopie données
With Sheets("Liste")
l = .Cells(Rows.Count, "F").End(xlUp).Row
If l < 196 Then
For i = 11 To l Step 49
.Range(.Cells(i, "A"), .Cells(i, "F")).Resize(49).Copy
Sheets("Liste vierge").Range("A" & tAdr(j)).PasteSpecial xlPasteValues
j = j + 1
Next
End If
End With
'impression
With Sheets("Liste vierge")
x = (Len(.Range("F11")) > 0) + (Len(.Range("F75")) > 0) + (Len(.Range("F139")) > 0) + (Len(.Range("F203")) > 0)
.PageSetup.PrintTitleRows = "$1:$10"
.PageSetup.PrintArea = Choose(x * -1, "$A$1:$M$74", "$A$1:$M$138", "$A$1:$M$202", "$A$1:$M$266")
.PrintPreview lance l’aperçu avant impression
'commenter la ligne ci-dessus et décommenter la ligne ci-dessous pour imprimer
'.PrintOut
End With
End Sub