Private Sub ComboBox1_Change()
Lettres = Array("A", "B", "C")
Couleurs = Array(Array(vbRed, vbGreen, vbGreen), Array(vbGreen, vbRed, vbGreen), Array(vbGreen, vbGreen, vbRed))
With Application
Label1.ForeColor = Couleurs(.Match(ComboBox1.Text, Lettres, 0) - 1)(0)
Label2.ForeColor = Couleurs(.Match(ComboBox1.Text, Lettres, 0) - 1)(1)
Label3.ForeColor = Couleurs(.Match(ComboBox1.Text, Lettres, 0) - 1)(2)
End With
End Sub