XL 2016 supprimer ligne commençant par 3 premiers caractéres

[jcpat]

Bonjour,
j'espére que vous allez bien

j'ai croisé pas mal d'infos sur le forum , mais je n'arrive pas à trouver la solution
j'ai dans un fichier des lignes qui commençent par OB2 ou OB3 et je désire supprimer les lignes en passant par du VBA qui commencent par OB2.
C'est pas un gros challenge et j'imagine que c'est simple pour vous

Merci

 

[sylvanu]

Bonjour Jcpat,
Un essai en PJ avec :

Sub SupprimeOB2()
    Dim DL%, L%
    Application.ScreenUpdating = False
    DL = Range("A65500").End(xlUp).Row
    For L = DL To 2 Step -1
        If Left(Cells(L, "A"), 3) = "OB2" Then Cells(L, 1).EntireRow.Delete
    Next L
End Sub

 

[jcpat]

Comme toujours Sylvanu c'est au top
merci beaucoup super rapide et efficace cela correpond tout à fait à ma demande