Sub MajLigne()
Dim i As Long, j As Byte
With Worksheets("TEST") ' à adapter
For i = .Range("A" & .Rows.Count).End(xlUp).Row - 1 To 3 Step -2
For j = 9 To 13
If .Cells(i, j) < 10 Or .Cells(i, j) > 200 Then .Cells(i, j) = .Cells(i + 1, j)
Next
.Rows(i + 1).Delete
Next
End With
End Sub