Sub ColonneLigne()
[A2:B1000].Sort key1:=[A:A], Header:=XlnoGuess
LigneBD = 2
LigneResult = 2
Do While Cells(LigneBD, 1) <> ""
temp = Cells(LigneBD, 1)
Sheets(2).Cells(LigneResult, 1) = Cells(LigneBD, 1)
c = 2
Do While Cells(LigneBD, 1) = temp
Sheets(2).Cells(LigneResult, c) = Cells(LigneBD, 2)
c = c + 1
LigneBD = LigneBD + 1
Loop
LigneResult = LigneResult + 1
Loop
End Sub