Problème de sélection de plusieurs cellules non contiguës

Bonjour,

Dans une feuille j'ai plusieurs cellules nommées non contiguës :
"Quid1", "Quid2", "Quid3" & "Quid4"

Suivant les circonstances, 3 de ces 4 cellules doivent être mises en forme. Il existe donc plusieurs combinaisons.
Plutôt que de devoir à chaque fois écrire toutes les mises en forme, j'ai tenté d'écrire une macro paramétrable :

Sub MiseEnFormeCellules(x As Byte, y As Byte, z As Byte)

Range("Quid" & x, "Quid" & y, "Quid" & z).Select
.
.
.

End Sub


que j'appellerai par la suite. Par exemple :

call MiseEnFormeCellules(1, 2, 3)
call MiseEnFormeCellules(1, 2, 4)
etc.

Et bien, ¡caramba encore raté!, ça ne marche absolument pas !

Merci d'avance pour tout coup de main et une bonne journée à tous.