Bonjour,
je trouve ma macro trop lente cela bloque mon ordi avez-vous une autre plus rapide
Sub afficherLesLignesVides()
Range("w4:w123").EntireRow.Hidden = False
For Each sel In Range("w4:w123")
Columns("p:p").Hidden = False
Columns("d:d").Hidden = False
Columns("g:g").Hidden = False
Columns("j:j").Hidden = False
Columns("m:m").Hidden = False
Columns("q:q").Hidden = False
Columns("s:s").Hidden = False
Columns("v:v").Hidden = False
Columns("w:w").Hidden = False
Columns("y:y").Hidden = False
Columns("z:z").Hidden = False
Columns("a:a").Hidden = False
Columns("q:q").Hidden = False
Columns("bn:bn").Hidden = True
Columns("bo:bo").Hidden = True
Columns("bp:br").Hidden = True
If sel = 0 Then sel.EntireRow.Hidden = False
Next
End Sub
merci
pat