Masquer des cellules

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.CodeName <> "Feuil1" Then Exit Sub
On Error Resume Next
[C:C].SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
Application.OnTime Now, "ThisWorkbook.Affiche"
End Sub

Sub Affiche() 's'exécute après l'impression
Rows.Hidden = False
End Sub

Option Explicit 'Oblige la déclaration de variables

Sub EssAi()
Dim C As Range, DerLig As Long 'déclaration des variables
Application.ScreenUpdating = False 'empêche le rafraichissement de l'écran
DerLig = Feuil1.Range("B" & Rows.Count).End(xlUp).Row - 1 'recherche la dernière cellule non vide de la colonne A
ActiveSheet.Range("$A$2:$C$" & DerLig).AutoFilter Field:=3, Criteria1:="<>", Operator:=xlAnd 'Filtre sur la colonne C
ImPrime 'Aperçu de l'impression
Range("C2:C" & DerLig).RowHeight = 15 'remise de la hauteur des ligne à 15
ActiveSheet.Range("A2:C" & DerLig).AutoFilter Field:=3 'remet les lignes de la Colonne C
Selection.AutoFilter ' enlève le Filtre
Application.ScreenUpdating = True ' remet le raffraichissement de l'écran
End Sub

Sub ImPrime()
Feuil1.PrintPreview ' a remplacer par Feuil1.PrintOut pour l'impression
End Sub