Sub HideLigneVides()
With ActiveSheet.UsedRange
derLi = .Row + .Rows.Count - 1
End With
Application.ScreenUpdating = False
For r = derLi To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows(r).entirerow.hidden=true
Next r
End Sub
Cela marche si je n'ai pas de formule et un seul tableau.
Seulement j'ai une formule dans les cellules et de plus sur la meme feuille j'ai 3 tableaux ( A6 a A20 & A28 a A42 & A50 a A64 ).C'est dans les 3 tableaux cselement que je veux masquer les lignes vide
(La formule et =Menu'!B5).