Sub Bouton2_Clic()
For i = Sheets("Infos du jour").Range("A65535").End(xlUp).Row To 2 Step -1
If Sheets("Infos du jour").Cells(i, 1) > Sheets("Feuil1").Cells(2, 5) And Sheets("Infos du jour").Cells(i, 1) < Sheets("Feuil1").Cells(3, 5) Then
Sheets("Infos du jour").Rows(i).Delete
Next i
Sheets("Infos du jour").Select
End Sub