VBA Excel - Selection de plusieurs cellules non contigues

Bonjour a tous.

Voila j'ai 3 cellules non contiguës que je voudrais peindre en rouge.

Mes 3 cellules sont les suivantes :

Cells(CELLULESELECTION.Row, ENTREE_COLLAB_COLONNE)

Cells(CELLULESELECTION.Row, REPRISE_COLLAB_COLONNE)

Cells(CELLULESELECTION.Row, CLIENT_COLLAB_COLONNE)

Je pourrais sélectionner chaque cellules pour ensuite faire un

With Selection.Interior

.Pattern = xlSolid

.PatternColorIndex = xlAutomatic

.Color = 255

.TintAndShade = 0

.PatternTintAndShade = 0

End With

mais le problème est que si je fait ça , le code deviendra vraiment très long.

(pour l'exemple j'en ais mis que 3 mais il se peut que j'en sélectionne plus encore)

D’où l'idée de sélectionner plusieurs cellules comme si je faisait un contrôle clic sur ma feuille et ensuite d'appliquer la couleur.

Quelqu'un aurait une idée ?

merci d'avance

Saf

Les affreux ralentisseurs en VBA Excel sont Activate & Select !

Sélectionner pour accéder à un objet est souvent inutile et de facto idiot !

Voir peut-être du côté de la méthode Union …