Sub Test3()
Application.ScreenUpdating = False
Derligne = Range("A" & Application.Rows.Count).End(xlUp).Row
For j = 31 To 35
For i = Derligne To 3 Step -1
If Not Cells(i, j) < Cells(i, j - 30) Then
Cells(1, 1).EntireRow.Delete
Exit For
End If
Next i
Next j
Application.ScreenUpdating = True
End Sub