Suppression de lignes quand une cellule est vide

Bonjour !

J'ai déjà demandé de l'aide il y a quelques semaines, mais là je suis encore bloquée...

En fait j'ai une macro qui selectionne des lignes dans des onglets pour les coller dans un autre (le nombre de ligne n'est pas déterminée, c'est en fonction des lignes qui sont remplies).

J'ai rajouter une écriture qui me permet de supprimer les lignes vides de ce tableau, mais ce que je cherche à faire c'est de supprimer ces lignes seulement si une des cellules est vide (les cellules de la colonne "E", la colonne "commentaire du fichier ci-joint).

J'ai essayé plusieurs écritures mais j'ai pas l'air d'être douée parce que ça fonctionne pas donc voilà ma mon bout d'écriture que je voudrais modifier :

Dim DL, i As Integer

'Suppression des lignes vides (quand la ligne est vide ou qu’il y a écrit « RAS » ou « R.A.S » dans l’une des cellules)

DL = Cells(Rows.Count, "A").End(xlUp).Row

For i = DL To 2 Step -1

If Cells(i, 1) = "" Then

Cells(i, 1).EntireRow.Delete

End If

If Cells(i, 1) = « RAS » Then

Cells(i, 1).EntireRow.Delete

End If

If Cells(i, 1) = « R.A.S » Then

Cells(I, 1).EntireRow.Delete

End If

Next i

Voilà Voilà

Bonjour,

A tester :

Sub suppLig()
    Dim derlig As Long
    derlig = Cells(Rows.Count, 1).End(xlUp).Row
    With [E2].Resize(derlig - 1)
        .Replace What:="RAS", Replacement:="", LookAt:=xlWhole
        .Replace What:="R.A.S", Replacement:="", LookAt:=xlWhole
        .SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    End With
End Sub

eric

Franchement MERCI !

Je commence à peine à savoir faire des macros simples donc m'attaquer à ce genre de macro c'est un vrai casse-tête, elle fonctionne super bien en tout cas, merci encore