Pete, je ne sais jamais où tu es à un instant t.
Je t´ai renvoyé un nouveau projet où le code est défini sous forme de function, UNE seule fois et il suffit d´agir au niveau des événements GotFocus sur les contrôles.
Il te suffit d´invoquer systématiquement la function que j´ai appelée MettreZoneEnNoir par l´invocation suivante ( sur GotFocus de chaque contrôle):
MettreZoneEnNoir ( Screen.ActiveControl.Name)
Et voilà la function:
Function MettreZoneEnNoir(MaZone)
Screen.ActiveForm.Controls(MaZone).SelStart = 0
Screen.ActiveForm.Controls(MaZone).SelLength = Len(Screen.ActiveForm.Controls(MaZone))
End Function