Excel formula to convert Byte to K, M, G

Excel-convert-disk-space-units--B-Kb-Mb-Gb

=SI(
    DROITE(SUPPRESPACE(SUBSTITUE(C4;".";",")))="K";
    PRODUIT(
      CNUM(GAUCHE(SUPPRESPACE(SUBSTITUE(C4;".";","));NBCAR(SUPPRESPACE(SUBSTITUE(C4;".";",")))-1));
      1024
    );
    SI(
      DROITE(SUPPRESPACE(SUBSTITUE(C4;".";",")))="M";
      PRODUIT(
        CNUM(GAUCHE(SUPPRESPACE(SUBSTITUE(C4;".";","));NBCAR(SUPPRESPACE(SUBSTITUE(C4;".";",")))-1));
        1024;1024
      );
      SI(
        DROITE(SUPPRESPACE(SUBSTITUE(C4;".";",")))="G";
        PRODUIT(
          CNUM(GAUCHE(SUPPRESPACE(SUBSTITUE(C4;".";","));NBCAR(SUPPRESPACE(SUBSTITUE(C4;".";",")))-1));
          1024;1024;1024
        );
        "N/A"
      )
    )
)