Sub BoucherTrousDates()
Dim i As Integer, Derlig As Integer
Derlig = Range("A65000").End(xlUp).Row
Range("A1:A" & Derlig).Sort Key1:=Range("A1"), Order1:=xlAscending
For i = Derlig To 2 Step -1
If Cells(i - 1, 1) + 1 <> Cells(i, 1) [B][COLOR=red]And Cells(i - 1, 1) <> Cells(i, 1) [/COLOR][/B]Then
Cells(i, 1).EntireRow.Insert
Cells(i, 1) = Cells(i + 1, 1) - 1
i = i + 1
End If
Next i
End Sub