Suppression de lignes grand tableau, VBA

Essaies ce code :

Sub supprimer()

Dim i As Integer
Application.ScreenUpdating = False

With Sheets("Feuil1")

For i = 1048000 To 1 Step -1
    If (.Cells(i, 2) Mod 10) <> 0 Then
    .Rows(i).Delete
    End If
Next i

End With

Application.ScreenUpdating = True

End Sub 

Oui, remplace
Dim i As Integer
par
Dim i As Long

Bonjour

Vu la taille du tableau, Access 'ou une autre database aurait du être choisi
voir à ce sujet
https://support.microsoft.com/fr-fr/office/utiliser-access-ou-excel-pour-g%c3%a9rer-vos-donn%c3%a9es-09576147-47d1-4c6f-9312-e825227fcaea?ocmsassetid=ha010210195&correlationid=d29af1f8-4e74-4502-b994-3b1f030cc1ff&ui=fr-fr&rs=fr-fr&ad=fr#BM2

pour ne passer de longues minutes ou heures, il vaut peut-^tre mieux passer par des variables- tableaux (on ne travaille plus en Excel mais en RAM)

proposition avec restitution en feuille2 pendant les essais pour ne pas détruire le tableau à traiter

Option Explicit
Option Base 1

Sub supprimer_si_non10()
Dim Derlig As Long, Dercol As Byte, T_in()
Dim Cptr_in As Long, T_out(), Cptr_out As Long, Col As Byte

Dim start As Single ' A SUPPRIMER APRES ESSAIS
start = Timer ' A SUPPRIMER APRES ESSAIS

'Application.ScreenUpdating = False
With Sheets(1)
     Derlig = .Columns("B").Find("*", , , , , xlPrevious).Row
     Dercol = .Rows(1).Find("*", , , , , xlPrevious).Column
     T_in = .Range(.Cells(2, "A"), .Cells(Derlig, Dercol)).Value
     ReDim T_out(Dercol, 1)
     
     For Cptr_in = 1 To UBound(T_in)
          If T_in(Cptr_in, 2) Mod 10 = 0 Then
               Cptr_out = Cptr_out + 1
               ReDim Preserve T_out(Dercol, Cptr_out)
               For Col = 1 To Dercol
                    T_out(Col, Cptr_out) = T_in(Cptr_in, Col)
               Next Col
          End If
     Next Cptr_in
     '.Range(.Cells(2, "A"), .Cells(Derlig, Dercol)).ClearContents ' A ACTIVER APRES ESSAI
     '.Range("A2").Resize(Cptr_out, Dercol) = Application.Transpose(T_out) ' A ACTIVER APRES ESSAI
End With

With Sheets(2) ' A SUPPRIMER APRES ESSAIS
     .Range("A2").Resize(Cptr_out, Dercol) = Application.Transpose(T_out) ' A SUPPRIMER APRES ESSAIS
     .Select ' A SUPPRIMER APRES ESSAIS
End With ' A SUPPRIMER APRES ESSAIS

MsgBox "traitement réussi en : " & Timer - start & " .secondes" ' A SUPPRIMER APRES ESSAIS
End Sub

Pour 5000 lignes et 20 colonnes durée 1/10 secondes (Ram 512 Mo et proc 3 Go

chez moi pas de problème

comme on peut penser que ton tableau provient d'ailleurs (base de données ou fichier texte), tu as peut-^tre des nombres écrits en texte dans ta colonne B;
si, sans rien changer à ton tableau, les données dans la 2° colonne sont à gauche ==> texte au lieu de nombres
mais vu la taille de ton tableau 20 millions de cellules, l'ordi se met peut-^tre à genoux

au besoin

met quelques lignes de ton tableau (1000 maxi) sans données confidentielles en pièce jointe sur
https://www.cjoint.com/
puis copier l'adresse du lien et la coller dans le message de réponse

de mon coté je reconstruis la maquette et éventuellement te la transmets

dans cette attente