Macro suppression de lignes trop longue

Bonjour,

J'utilise ce code pour supprimer les lignes dont la colonne A sont vide.

J'ai rarement plus de 100 lignes sauvées à la fin de la macro, et les lignes totales dépassent rarement 500 lignes

Ma macro partant d'en bas et en remontant, c'est hyper long.

Question donc !

Y a t'il moyen de gagner du temps, peu être en allant chercher la dernière ligne de la colonne A pleine, et supprimer d'entrée tout ce qui a derrière ?!

Merci par avance

Bien à vous

Sub SupprimerLignesVidesColonneA()

    Dim ws As Worksheet
    Dim i As Long

    'Application.ScreenUpdating = False

    ' Définir la feuille de calcul
    Set ws = ThisWorkbook.Worksheets("Masque1")

    ' Parcourir les lignes de bas en haut pour éviter les problèmes de décalage
    For i = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row To 1 Step -1
        ' Vérifier si la cellule de la colonne A est numérique
        If Not IsNumeric(ws.Cells(i, 1).Value) Then
            ' Supprimer la ligne de A à S
            ws.Range(ws.Cells(i, 1), ws.Cells(i, 19)).Delete

            Application.Goto [A2], True

            'ActiveWindow.ScrollRow = 1
            'ActiveWindow.ScrollColumn = 1
            'Range("A2").Select

            MsgBox "Les lignes ont été supprimées"

    'Application.ScreenUpdating = True

        End If
    Next i

End Sub