Sub test()
'au départ Range("A1").CurrentRegion équivalent à Range("A1:F5")
x = Rows(Range("A1").CurrentRegion.Rows.Count + 1 & ":" & Rows.Count).Address '.Delete
y = Range(Cells(1, Range("A1").CurrentRegion.Columns.Count + 1), Cells(1, Columns.Count).EntireColumn).Address '.Delete
derl = Range("A1").CurrentRegion.Rows.Count
dercol = Range("A1").CurrentRegion.Columns.Count
Range(Cells(1, dercol), Cells(Range("A1").CurrentRegion.Rows.Count, dercol)).Delete 'efface les cellules non vides de la dernière colonne F
Range(Cells(1, Range("A1").CurrentRegion.Columns.Count), Cells(derl, Range("A1").CurrentRegion.Columns.Count)).Delete 'efface les cellules non vides de la dernière colonne E
Range("A1", "B5").Select
End Sub