PB suppression lignes

Bonjour,

J'ai un fichier de 25 000 lignes sur les réservations de véhicules.

il augmente en nombre de lignes tout les jours et j'ai besoin de supprimer des lignes.

dans le fichier joint il y a un petit tableau jaune avec les codes des lignes à supprimer.

ces codes se trouvent dans la colonne F.

donc à chaque fois que la valeur dans F est égale à une des valeurs dans le petit tableau jaune je supprime la ligne.

j'ai fait un code qui marche mais cela est très très long car je regarde chaque ligne.

exemple pour

Sub suppression()
'
' MAJ Macro
'

Application.ScreenUpdating = False
Dim X As Integer
Dim dlig As Long
'Dim Direction As Variant

Sheets("NETTOYAGE").Select

'Direction = Range("A2").Value

      dlig = Range("A" & Rows.Count).End(xlUp).Row

 For X = dlig To 2 Step -1

         If Cells(X, "F").Value <> "serie-0000" Then

          Rows(X).Delete
          Else

         End If
      Next X

      Application.ScreenUpdating = True

End Sub

alors existe t'il une façon de faire plus rapide.

Par avance merci

Hello

Tu peux tester ceci pour accroître la vélocité sinon il y a PowerQuery

Sub suppression()
'
' MAJ Macro
'
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Dim X As Integer
Dim dlig As Long
'Dim Direction As Variant

Sheets("NETTOYAGE").Select

'Direction = Range("A2").Value

      dlig = Range("A" & Rows.Count).End(xlUp).Row

 For X = dlig To 2 Step -1

         If Cells(X, "F").Value <> "serie-0000" Then

          Rows(X).Delete
          Else

         End If
      Next X

      Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

@+

Bonjour

Bonjour à tous

Un essai à tester. Te convient-il ?

Bye !

bonjour,

Merci pour votre aide.

la solution de gmb est top et très rapide.
je vais vérifié plus profondément mais à première vue c'est ok.

bonne fin de journée