Bon, tu tombes mal car je n'ai jamais utilisé de Msgbox ni de fonction, mais vue l'heure assez tardive, il ne doit pas y avoir grand monde allors je vais tenter une réponse à base de... suppositions.
Tu sembles avoir très bien compris le fonctionnement et l'utilisation de la fonction Rnd().
Je pense que, l'utilisation de la fonction Pileface() que tu as créée doit s'utiliser de la même façon.
De même que la fonction Rnd() te renvoie un chiffre entre 0 et 1, ta fonction Pileface() te renvoie 0 ou 1 (suivant le pseudo tirage effectué dans cette fonction).
Dans ta macro tu dois donc, je suppose, utiliser ta fonction Pileface() et un IF pour afficher "Pile" ou "Face" suivant ce que te renvoit ta fonction Pileface().
Ce qui donnerait un truc du genre (que je te laisse traduire en VBA
) :
SI Pileface()=0 ALORS
AFFICHER "Pile"
SINON
AFFICHER "Face"
FIN DE SI