Supprimer ligne suivant des critéres mais pas si la cellule dans la colonne A est non

Sub test()
For Each cell In Range(Selection.Address)
If cell.Value Like "IP*" Then NIP = NIP + 1
Next
MsgBox NIP
End Sub

for i = 100 to 2 step -1
if cells(i,1)<>"" then goto suite
if cells(i,5) like "IP*" then code pour supprimer la ligne
suite:
next

Sub test()
    Dim i&, fin&
    With Feuil2
        fin = .UsedRange.SpecialCells(xlCellTypeLastCell).Row
        For i = fin To 3 Step -1
            If .Cells(i, 1) = "" And .Cells(i, 5) Like "*" & "IP" & "*" Or .Cells(i, 1) = "" _
               And .Cells(i, 5) Like "*" & "Microsoft" & "*" Then Rows(i).Delete
        Next i
    End With
End Sub