Sub SupLignVides()
Dim Sh As Worksheet, Dercol As Long, Derlign As Long
Application.ScreenUpdating = False
For Each Sh In ActiveWorkbook.Sheets
With Sh
.Activate
Derlign = .UsedRange.Rows.Count + 1
Dercol = .UsedRange.Columns.Count + 1
.Rows(Derlign & ":65536").Delete
.Range(Cells(1, Dercol), Cells(1, 256)).EntireColumn.Delete
End With
Next
Application.ScreenUpdating = True
End Sub