Sub entiernatSupp()
Dim cell As Range
For Each cell In Range("C3:C26")
If cell.Value Mod 100 <> 0 Or cell.Value < 0 Then cell.EntireRow.Delete
Next cell
End Sub
Sub suppligne()
Dim i As Integer
For i = 200 To 3 Step -1
If Cells(i, 3).Value Mod 100 <> 0 Or Cells(i, 3).Value < 0 Then Rows(i).EntireRow.Delete
Next i
End Sub