Sub Numeroter()
With [A1].CurrentRegion
If Rows.Count = 1 Then Exit Sub
.Sort .Columns(1), xlAscending, Header:=xlYes 'tri avec en-têtes
.Cells(2, 2).Resize(.Rows.Count - 1) = "=IF(RC[-1]<>R[-1]C[-1],1,N(R[-1]C)+1)"
.Columns(2) = .Columns(2).Value 'supprime les formules, facultatif
End With
End Sub