Sub Synthèse()
Dim T, dico, TT, Plage As Range, i As Long
Set dico = CreateObject("Scripting.Dictionary")
With Worksheets("Releve")
Set Plage = .Range("A2:B" & .Range("A" & Rows.Count).End(xlUp).Row)
Plage.Sort Key1:=Range("A2"), Order1:=xlAscending
End With
T = Plage
For i = LBound(T, 1) To UBound(T, 1) - 1
T(i, 1) = CDbl(T(i, 1))
If Month(T(i, 1)) <> Month(T(i + 1, 1)) Then dico(T(i, 1)) = T(i, 2)
Next
dico(T(UBound(T, 1), 1)) = T(UBound(T, 1), 2)
TT = Application.Transpose(Array(dico.keys, dico.Items))
With Worksheets("Synthese")
.Range("A2").Resize(UBound(TT, 1), UBound(TT, 2)) = TT
.Columns(1).NumberFormat = "m/d/yyyy"
End With
End Sub