Excel : Suppression de lignes

Bonjour,

j'ai créé un tableau avec en colonne A et B des valeurs
Je dois supprimer toutes les lignes qui se trouvent sous la dernière valeur dans la colonne A.

Exemple :

ligne1---Colonne A---colonne B
ligne 2---martin---16 ans
ligne 3---jack----17 ans
ligne 4---andré---24 ans

le programme dois me supprimer toutes les ligne de la ligne 5 jusque la ligne 65000

J'ai créé ce programme :

Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To 65000
If (Cells(i, 1) = ISBLANK) Then
Cells(i, 1).EntireRow.Delete
i = i - 1
End If
Next

mais il tourne pendant 30 minutes (le temps de vérifier les lignes une à une)

Quelqu'un aurait-il une solution

d'avance merci et bonne pâques les enfants

On the road again !