Amélioration suppression ligne

Bonjour le forum et tout le monde,

J'ai un code pour supprimer les lignes vides et non numérique, qui est pratique sur quelque ligne mais pour travailler sur 40000lignes il est trés lent...

Je ne sais pas comment faire pour passer par les tables si quelqu'un peu m'aider !!! Merci d'avance 🙂

ci dessous le code !!

Range("g64000").Select
Range(Selection, Selection.End(xlUp)).Select
y = ActiveCell.Row 'Pour avoir la dernière ligne

For x = y To 1 Step -1
If Not IsNumeric(Range("b" & x)) Then Rows(x).Delete
If IsEmpty(Range("b" & x)) Then Rows(x).Delete
Next