Bonjour le forum, Muqtadir92,
Il suffisait de supprimer les 2 surligner
Option Explicit 'Oblige la déclaration des Variables
Sub Sup_Lig()
Dim DLig As Long, i As Long ' Declare la variable Dlig
Application.ScreenUpdating = False 'Empeche le rafraichissement de l'écran
DLig = Sheets("Import").Range("F" & Rows.Count).End(xlUp).Row ' Recherche la Dernière LIGne de la Colonne F
For i = DLig To 2 Step -1 ' Boucle sur les lignes de la Dernière trouvée a la ligne n°2
If Cells(i, 6) <> "" And Cells(i, 6) = "-" Then Rows(i).EntireRow.Delete ' _ si La cellule n'est pas vide et si la cellule est égalé à "-" alors on supprime la ligne
Next i 'Prochaine Ligne
Application.ScreenUpdating = True 'Remet le rafraichissement de l'écran
End Sub
Cordialement.