Sub LieuDate()
Dim a(), b(), d As Dictionary, i As Long, j As Long, L As Long, c As Long, ws As Worksheet
Dim item As Variant, MaDate As Date
Feuil27.Range("AK1:AN1000").ClearContents
Set ws = Worksheets("Tableau de saisie")
Set d = New Dictionary
L = ws.Range("B65000").End(xlUp).Row
a = ws.Range("B2:C" & L).Value
c = Feuil27.Range("AL2").Column
For i = 1 To UBound(a)
MaDate = a(i, 2)
a(i, 2) = CDbl(MaDate)
d(a(i, 1)) = a(i, 1)
Next
Feuil27.Range("AL1").Resize(, d.Count) = d.Items
Feuil27.Range("AK2").Resize(d.Count) = Application.Transpose(d.Items)
b = d.Items
For i = LBound(b) To UBound(b)
Set d = New Dictionary
For j = 1 To UBound(a)
If a(j, 1) = b(i) Then d(a(j, 2)) = a(j, 2)
Next
Feuil27.Cells(2, c).Resize(d.Count) = Application.Transpose(d.Items): c = c + 1
Next
End Sub