Bonjour à tous

Je travaille un code simple mais particuliérement répétitif, avec deux adresses qui changent, tout le reste est figé.
le problème c'est que l'un de ces 2 adresses est répétées 2 fois par instruction
Mon objectif n'avoir qu'une seule fois chaque adresse par instructions. Car j'ai 108 instructions similaires

Ci joint un bout de code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 Select Case Range("H3").Value
    Case "V": TMa2.SMP_1_F3.BackColor = vbGreen
    Case "J": TMa2.SMP_1_F3.BackColor = vbYellow
    Case "M": TMa2.SMP_1_F3.BackColor = vbMagenta
    Case "R": TMa2.SMP_1_F3.BackColor = vbRed
 End Select
Les adresses sont ("H3") et TMa2.SMP_1_F3
Pouvez vous m'aider pour n'écrire la seconde adresse qu'une fois

Merci de votre aide

Thierry