Création de 2 fonctions VBA

Je recherche quelqu'un qui puisse me fournir 2 fonctions sous excel:

1 qui me remplace des lettres par des caractères spéciaux dans une ligne. J'ai des celulles au format AhKd3s (ce sont des cartes, h= coeur, s=spade=pique, d=diamond=carreau, c=clubs=trèfle).
Je veux pouvoir remplacer automatiquement les h/s/d/c par des symboles de couleurs: h en un coeur rouge, s en un pique noir, c en un trefle vert et d en un carreau bleu, sans perdre les cartes. Cela transforme donc la celulle en format A(coeur rouge)K(carreau bleu)3(trèfle vert)

2 qui me permet de trier des cartes dans l'ordre croissant et décroissant sur une ligne. Toujours en partant des celulles au format AxKx3x (x étant la couleur possible de la carte) je veux pouvoir les trier, sachant que le 2 est la plus faible, et ensuite 9<T<J<Q<K<A. Mes celulles peuvent contenir 3 à 5 cartes et 222<223 par exemple (ce sont des boards de poker)