Impression sous conditions de cellule

=SI(DATE(ANNEE(AUJOURDHUI());MOIS(B2);JOUR(B2))>=AUJOURDHUI();DATE(ANNEE(AUJOURDHUI());MOIS(B2);JOUR(B2))-AUJOURDHUI();DATE(ANNEE(AUJOURDHUI())+1;MOIS(B2);JOUR(B2))-AUJOURDHUI())

Sub Format_Oui()
Application.ScreenUpdating = False
Columns("A:A").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("a1:a" & Range("b65536").End(xlUp).Row).FormulaR1C1 = "=COUNTA(RC[1]:RC[7])"
For i = 1 To Range("a65536").End(xlUp).Row
    If Range("a" & i).Value < 2 Then Range("a" & i).EntireRow.Hidden = True
Next
Columns("A:A").Delete
ActiveSheet.PrintPreview
'ActiveSheet.PrintOut 'pour lancer impression
Cells.EntireRow.Hidden = False
Application.ScreenUpdating = True
End Sub

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