Supprimer des lignes avec formule qui apparaissent vides

Bonjour,

Je viens de nouveau vous demander de l'aide. J'ai appliqué un code afin que les lignes qui ont une cellule vide dans la colonne G de ma feuille imputation soient supprimées. C'est celui-ci.

Sub SuppLigneVide()

Dim Derlig As Long, Ligne As Long

Application.ScreenUpdating = False

With Worksheets("Feuil1")

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

For Ligne = Derlig To 2 Step -1

If .Range("L" & Ligne) = "" Then Rows(Ligne).Delete

Next Ligne

End With

End Sub

Le problème c'est que les cellules de cette colonne ne sont pas vraiment vide : elles contiennent une formule qui renvoi à la feuille SAP. Donc elles apparaissent vide sans être vraiment vides. Je voudrait donc les supprimer.

Merci

C'est bon j'ai trouvé : voilà la solution :

Sub EffaceLignesVides()

With Sheets("Imputation")

Dim i As Long

For i = .Range("G65536").End(xlUp).Row To 2 Step -1

If Cells(i, 7) = "" Then .Cells(i, 7).EntireRow.Delete

Next

End With

End Sub