Sub suppr_50h()
Dim Index As Integer
Dim EndFile As Integer
EndFile = Cells(1, 1).Value
EndFile = EndFile + 8
For Index = 9 To EndFile
'2,08 correspond à la valeur de 50 heures en language excel (date et heure correspondent à un nombre).
If Cells(Index, 4).Value < "2,08" Then
Rows(Index).Select
Selection.Delete Shift:=xlUp
End If
Next Index
End Sub