Effacer feuille plus rapidement !!!

Bonjour,

Je souhaiterai effacer une feuille plus rapidement:

J'avais :

Public Sub ClearWorksheet()
Dim i As Long

i = 6
Set ws = Worksheets1
ws.Visible = True '
While ws.Range("A" & i).Value <> "" Or ws.Range("C" & i).Value <> ""
ws.Rows(i).EntireRow.Delete
Wend

End Sub

Maintenant j'ai:

Public Sub ClearWorksheet()
Dim lm As Integer

i = 6
Set ws = Worksheets1
ws.Visible = True '
lm = ws.[B65536].End(xlUp).Row + 1
ws.Range("A6:Z(cint(lm - 1))").Delete shift:=xlShiftUp

End Sub

Pourquoi ça marche pas ?? je vois d'ou vient le probleme mais je ne trouve pas la solution

Est ce que ca selectionne toutes mes cellules de A6 à Zqqchose avant de supprimer le tout comme souhaité.
J'espère gagner un temps précieux... (le qqchose peut etre >500...)

Merci