bonjour ruliann,
un essai
Sub test()
Application.EnableEvents = False
With Sheets("Feuil1")
With .Range("A2").CurrentRegion
Set c = .Offset(2 - .row).Resize(, 1)
End With
With c.Offset(, 26) 'colonnes AA:AB comme brouillon
.FormulaR1C1 = "=IF(RC[-25]<>"""",TEXT(RC[-25]*1000+COUNTIF(R1C2:RC[-25],RC[-25]),""00\-000""),R[-1]C)"
.Offset(, 1).FormulaR1C1 = "=SUM(IF(RC[-26]<>"""",0,R[-1]C),1)"
.Resize(, 2).Value = .Resize(, 2).Value
End With
c.Resize(, 28).Sort key1:=.Range("AA2"), order1:=xlDescending, key2:=.Range("AB2"), order2:=xlAscending, Header:=xlNo
c.Offset(, 26).Resize(, 2).ClearContents
End With
Application.EnableEvents = False
End Sub
EDIT : salut Joco7915, ces cellules sont uniquement sur la première ligne, je crois