Sub Imprimer()
Dim plage As Range, col As Byte
Set plage = [A1].CurrentRegion
col = plage.Columns.Count + 1
plage(2, col).FormulaR1C1 = "=COUNTA(RC2:RC[-1])"
plage.AdvancedFilter xlFilterInPlace, plage(1, col).Resize(2)
ActiveSheet.PageSetup.PrintArea = plage.Address
ActiveSheet.PrintPreview 'Apercu
'ActiveSheet.PrintOut
plage.AdvancedFilter xlFilterInPlace, ""
plage(2, col) = ""
End Sub