Sub Parcour2()
Dim TDon(), LDon As Long, TRés(1 To 10, 1 To 10), LRés As Long, CRés As Long, TNbCol(1 To 10) As Long
TDon = Range("A1:B6").Value
For LDon = 1 To UBound(TDon, 1)
LRés = TDon(LDon, 1)
CRés = TNbCol(LRés) + 1: TNbCol(LRés) = CRés
TRés(LRés, CRés) = TDon(LDon, 2)
Next LDon
Cells(1, "E").Resize(10, 10).Value = TRés
End Sub