Sub Supprime()
Dim i As Integer
For i = Range("A65536").End(xlUp).Row To 3 Step -1
If Cells(i, 1).Value Like ("cv*") _
And Cells(i - 1, 1).Value Like ("cv*") _
And Cells(i - 2, 1).Value Like ("cv*") _
Then Rows(i - 2 & ":" & i - 1).Delete
Next i
End Sub