Sub masquer()
Dim dl&, dc&, i&
With ActiveSheet
dl = .Cells.Find("*", searchorder:=1, searchdirection:=2).Row
dc = .Cells.Find("*", searchorder:=2, searchdirection:=2).Column
End With
For i = 1 To dc
Columns(i).Hidden = Application.CountIf(Columns(i), 0) > 0
Next
For i = 1 To dl
Rows(i).Hidden = Application.CountIf(Rows(i), 0) > 0
Next
End Sub