Sub es()
Dim a, b, i As Long
Set a = Feuil1: Set b = Feuil2
Application.ScreenUpdating = 0
a.Range("a1:e" & a.Cells(Rows.Count, 1).End(3).Row).Copy b.Range("a1")
b.Range("a1:e" & b.Cells(Rows.Count, 1).End(3).Row).Sort Key1:=b.Range("b2"), Order1:=xlAscending, Header:=xlGuess
For i = b.Cells(Rows.Count, 2).End(3).Row To 3 Step -1
If b.Cells(i, 2) <> b.Cells(i - 1, 2) Then
b.Rows(i).Insert: b.Rows(i).Insert
End If
Next i
End Sub