Sub Lamacro()
On Error Resume Next
With Range("F2:F" & Cells(Cells.Rows.Count, 1).End(xlUp).Row)
'D'abord on vire tout ce qui est ni lundi ni mardi ou qui fait partie de la liste nommée ListeLundisFériés
.FormulaR1C1 = "=IF(WEEKDAY(RC[-3],2)>2,1,IF(ISERROR(MATCH(RC[-3],ListeLundisFériés,0)),"""",1))"
.Value = .Value
.SpecialCells(xlCellTypeConstants, 1).EntireRow.Delete
End With
With Range("F2:F" & Cells(Cells.Rows.Count, 1).End(xlUp).Row)
'Puis on dégage les mardis qui suivent les lundis qui restent
.FormulaR1C1 = "=IF(RC[-3]=R[-1]C[-3]+1,1,"""")"
.Value = .Value
.SpecialCells(xlCellTypeConstants, 1).EntireRow.Delete
End With
Range("F:F").Clear
End Sub