Sub Fusion()
Dim P1 As Worksheet, P2 As Worksheet
Set P1 = ActiveWorkbook.Sheets("P1")
Set P2 = ActiveWorkbook.Sheets("P2")
With P1.UsedRange
.Interior.ColorIndex = 6 'couleur jaune
.Copy P2.[A65536].End(xlUp)(2)
End With
P2.Cells.Sort P2.[A1], xlAscending, P2.[B1], , xlAscending, Header:=xlGuess
Application.DisplayAlerts = False 'évite le message d'alerte
P1.Delete 'suppression de la feuille, facultatif
End Sub