Supprimer certaines lignes dans un tableau

Bonsoir le forum

Voila j'ai un petit soucie je cherche a supprimé toutes les lignes dans mon tableau dont la valeur marge n'est pas négative et gardé juste celle qui sont en couleur comme pourrais je faire.

merci d'avance pour votre aide

Bonjour et bienvenue

Code à placer dans un module :

Sub SupprimeLigne()
Application.ScreenUpdating = False
lg = Range("C65536").End(xlUp).Row
For i = lg To 8 Step -1
If Not Cells(i, 7).Value < 0 Then Rows(i).Delete
Next
End Sub

Amicalement

Nad