Sub Supprime_Lignes_Entre_Dates()
derl = ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row
For i = derl To 2 Step -1
If Cells(i, 2).Value2 >= Sheets("Dates").Cells(1, 1).Value2 And Cells(i, 2).Value2 <= Sheets("Dates").Cells(2, 1).Value2 Then Rows(i & ":" & i).Delete 'MsgBox "ok" '
Next
End Sub