Comme ma solution est strictement identique à celles de h2so4 et de Jean-Eric, je ne mets pas le fichier, un seul suffit. J'ajouterai juste d'autres façons de faire, plus longues, mais présentant une particularité du langage VBA :
68 car.
PGE = a & Chr(61 + Sgn(a - b)) & b
77 car.
PGE = a & Mid("<=>", Sgn(a - b) + 2, 1) & b
79 car.
PGE = Join(Array(a, Chr(61 + Sgn(a - b)), b))
85 car.
PGE = a & IIf(a > b, ">", IIf(a = b, "=", "<")) & b