Trier des nombre + unité ?

Sub deb()
With Feuil1
Set plage = .Range("a2:a" & .Range("a" & Rows.Count).End(xlUp).Row)
derlig = .Range("a" & Rows.Count).End(xlUp).Row
For Each cel In plage
cel.Offset(0, 0) = Replace(cel.Offset(0, 0), "Kg", "")
.Range("a2:a65536").Sort .Range("a2"), xlAscending
Next cel
For i = 2 To derlig
.Cells(i, 1) = .Cells(i, 1) & " Kg"
Next i
End With
End Sub

Sub deb()
Dim derlig As Long, i As Long
    With Feuil1
        derlig = .Range("i" & Rows.Count).End(xlUp).Row
        .Range("a2").FormulaLocal = "=I2/$J$2 & "" Kg"""
        .Range("a2").AutoFill Destination:=.Range("a2:a" & derlig)
        For i = 2 To derlig
            .Cells(i, 1) = Replace(.Cells(i, 1), "Kg", "")
        Next i
        .Range("a2:i65536").Sort .Range("a2"), xlAscending
    End With
End Sub