Sub SupLig()
Application.ScreenUpdating = False
nbLignes = Sheets("Feuil1").Cells(Rows.Count, "B").End(xlUp).Row
For i = 1 To nbLignes
If (Sheets("Feuil1").Cells(i, "A").Value Like "*Test*") Then
i = i + 3
End If
If (Sheets("Feuil1").Cells(i, "B") = Sheets("Feuil1").Cells(i + 1, "B") And Sheets("Feuil1").Cells(i + 1, "B") = Sheets("Feuil1").Cells(i + 2, "B")) Then
End
End If
Rows(i).Delete
i = i - 1
Next
Application.ScreenUpdating = True
End Sub