Une autre approche est de le faire par VBA, cela évite de rajouter une colonne, avec :
VB:
Sub Sup_km()
Application.ScreenUpdating = False
For L = 2 To [B65500].End(xlUp).Row
If Cells(L, "C") <> "" And Right(Cells(L, "C"), 2) = "km" Then
Cells(L, "C") = Left(Cells(L, "C"), Len(Cells(L, "C")) - 3)
End If
Next L
End Sub