[COLOR=blue]Sub[/COLOR] Begaiement()
[COLOR=blue]Dim[/COLOR] i [COLOR=blue]As[/COLOR] [COLOR=blue]Long[/COLOR]
[COLOR=blue]With[/COLOR] Sheets([I]"Feuil1"[/I])
.Range([I]"A:B"[/I]).Sort Key1:=Range([I]"A2"[/I]), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=[COLOR=blue]False[/COLOR], Orientation:=xlTopToBottom
.Range([I]"H:I"[/I]).ClearContents
.Range([I]"H1:I1"[/I]) = Array([I]"ColonneA"[/I], [I]"ColonneB"[/I])
[COLOR=blue]Dim[/COLOR] t: t = .Range([I]"A2:A"[/I] & .Range([I]"A"[/I] & .Rows.Count).[COLOR=blue]End[/COLOR](xlUp).Row)
[COLOR=blue]Dim[/COLOR] u: u = .Range([I]"E2:E"[/I] & .Range([I]"E"[/I] & .Rows.Count).[COLOR=blue]End[/COLOR](xlUp).Row)
[COLOR=blue]End[/COLOR] [COLOR=blue]With[/COLOR]
[COLOR=blue]With[/COLOR] Sheets([I]"Feuil2"[/I])
[COLOR=blue]For[/COLOR] i = 1 To [COLOR=blue]UBound[/COLOR](t)
[COLOR=blue]With[/COLOR] .Range([I]"H"[/I] & .Rows.Count).[COLOR=blue]End[/COLOR](xlUp)(2).Resize([COLOR=blue]UBound[/COLOR](u))
.Value = t(i, 1)
.Offset(, 1) = u
[COLOR=blue]End[/COLOR] [COLOR=blue]With[/COLOR]
[COLOR=blue]If[/COLOR] i < [COLOR=blue]UBound[/COLOR](t) - 1 [COLOR=blue]Then[/COLOR]
[COLOR=blue]Do[/COLOR] [COLOR=blue]While[/COLOR] t(i, 1) = t(i + 1, 1): i = i + 1: [COLOR=blue]Loop[/COLOR]
[COLOR=blue]End[/COLOR] [COLOR=blue]If[/COLOR]
[COLOR=blue]Next[/COLOR]
[COLOR=blue]End[/COLOR] [COLOR=blue]With[/COLOR]
[COLOR=blue]End[/COLOR] [COLOR=blue]Sub[/COLOR]