bonjour a tous et toutes
voila j'ai trouve une macro de MICHEL ( ci dessous )que j'ai sensiblement adaptee à mon probleme
lorsque j'ouvre EXCEL et que je lance cette macro , tout va tres bien
mais si je la lance une seconde fois , elle fonctionne bien ,mais elle est tres longue à s"executer !!!
auriez vous une soluce?
merci d'avance et bonne journée
E et F
Sub Masquer()
Dim Cell As Range
Application.ScreenUpdating = False
For Each Cell In Range("b1:b1000")
If Cell = "" Then Rows(Cell.Row).Hidden = True
If Cell = 0 And Cell.HasFormula Then Rows(Cell.Row).Hidden = True
Next Cell
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.Rows.Hidden = False
End Sub