J'ai du mal a visualisé l'intégralité de ta demande mais essai quelque chose comme ça
Sub Suppression_Negatif()
'boucle sur les lignes 32 a 2 (a l'envers pour évité de rater des lignes
For i = 32 To 2 Step -1
'Si le première caractère en partant de la gauche est le caractère "-"
If Left(Cells(i, 5), 1) = "-" Then
'Supprime la ligne
Rows(i).Delete
End If
Next i
End Sub