'Affichage en couleur rouge avant de choisir
Private Sub Man_comm_2_GotFocus()
Man_comm_2.BackColor = vbRed
Man_comm_2.ForeColor = vbBlack
End Sub
'Affichage en couleur blanc après le choix
Private Sub Man_comm_2_LostFocus()
Man_comm_2.BackColor = &H80000005
Man_comm_2.ForeColor = &H80000008
End Sub