Supprimer ligne si colonne contient un mot commençant par

Bonjour forum,

Je suis en mode arrêt en ce moment parce que je veux que mon code puisse supprimer toutes les lignes dont les cellules contient les mots commencent par les lettres FR, EN, ES.

Voici mon code:

Sub Suppr()

Dim B, CAs Range

Set B = Range([A], Cells(Range("A" & Rows.Count).End(xlUp).Row, 1))

Do

Set C = B.Find("FR", "EN", "FR", xlWhole)

If C Is Nothing Then Exit Sub

C.EntireRow.Delete

Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

Loop

End Sub

Merci pour votre aide.

Bonjour,

Pour le principe, sans fichier joint pour l'exemple.

Cdlt.

Sub Suppr()
Dim rng As Range, n As Long, i As Long
    Application.ScreenUpdating = False
    With ActiveSheet
        n = .Cells(.Rows.Count, 1).End(xlUp).Row
        For i = n To 1 Step -1
            Select Case .Cells(i, 1).Value
                Case "FR", "EN", "ES", "":
                    .Cells(i, 1).EntireRow.Delete
                Case Else:
            End Select
        Next i
    End With
End Sub

Bonjour Jean-Eric,

Merci pour ta réponse et je suis impressionné par la pertinence de votre code.

Je l'ai testé sur mon fichier mais rien ne se passe.

je souligne que Ma recherche se fait sur la colonne A uniquement.

Merci

Re,

Merci pour la pertinence du code.

Je comprends que tu as compris le code sans pouvoir le reproduire.

Il est difficile de faire simple, simple de faire compliquer !...

Je joins un fichier.

Cdlt.

Bonjour Jean-Eric,

Merci beaucoup pour ton assistance,

je pense que tu j'ai eu mon cadeau de fin d'année.

Désolé pour le retard,

parce que d'autres problèmes encore à résoudre.

Merci