Sub Trier()
Dim a As Range
Application.ScreenUpdating = False
On Error Resume Next 'si aucune SpecialCell
With [A3].CurrentRegion.Columns(2).Resize(, 3)
For Each a In .SpecialCells(xlCellTypeBlanks).Areas
a.NumberFormat = "General" 'format Standard
a.FormulaR1C1 = "=IF(RC5=R4C5,""zzz"",R[-1]C)"
Next
.EntireRow.Sort .Columns(3), xlAscending, .Columns(1), , xlAscending, Header:=xlYes 'tri sur 2 colonnes
.SpecialCells(xlCellTypeFormulas).ClearContents 'efface les formules
End With
End Sub