Sub sup()
Application.ScreenUpdating = False
nb = Range("Tableau1").Rows.Count
For i = nb To 1 Step -1
If Format(Range("Tableau1").Item(i, 1), "hh:mm") < Format("18:20", "hh:mm") Then
Range("Tableau1").Item(i, 1).EntireRow.Delete
End If
Next i
Application.ScreenUpdating = True
End Sub
=DECALER(Données!$A$5;;;NB.SI(Données!$A:$A;"<>"&"");3)