Supprimer des lignes selon un critère déterminé avec une mac

Bonjour,

Je voudrais :

• supprimer les lignes de ma colonne "A" qui sont vides (par exemple si la cellule A3 est vide alors supprimer toute la ligne) ;
• supprimer toutes les lignes différentes d'un critère qui est : "E201*******" (les étoiles correspondent à 7 chiffres qui ne sont pas fixes mais variables (automatiques))

- garder la ligne 1 vu qu'il s'agit des noms de colonne.

J'espère avoir été assez explicite.

Vous remerciant par avance pour votre aide.

ps : je vous joins le fichier en pièce jointe pour vous faciliter.

Dans le fichier les données de la colonne "A" s'arrête à la ligne 45 mais cela peut être beaucoup plus.

Bonjour,

Sub EpurerLignes()
    Dim n%, i%
    With Worksheets("Sheet1")
        Application.ScreenUpdating = False
        n = .Cells(.Rows.Count, 1).End(xlUp).Row
        For i = 2 To n
            If Not .Cells(i, 1) Like "E201*" Then .Cells(i, 1).ClearContents
        Next i
        .Range("A2:A" & n).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    End With
End Sub

Cordialement.

Bonjour,

Merci bien.

Juste une question : à quoi correspond le % après le n et le i dans Dim

Cordialement,

% = As Integer

Caractère de déclaration de type, permettant de raccoucir les déclarations pour certains types de données :

$ = As String

% = As Integer

& = As Long

! = As Single

# = As Double

@ = As Currency

Cordialement.

Merci bien pour ces précisions.

Bonne journée à vous.