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