Bonjour,
En réalité, le fond s'applique correctement, mais pas la police si je ne m'abuse.
Le problème est que tu utilises pour le fond la méthode Selection (ce qui est parfait lorsque tu as sélectionné plusieurs cellules), mais tu utilises ensuite ActiveCell pour tous les paramètres de Font. Le problème c'est que ActiveCell désigne uniquement la cellule active (tu l'avais compris j'imagine mais bon on sait jamais).
Il te suffit d'appliquer tes paramètres de font dans la méthode With Selection et ça fonctionnera à merveille
Bonne continuation