Salut Jean-Marie, Julien et son Prof,
A priori, tu n'as pas besoin d'une fonction dans ta procédure !
MsgBox "ATTENTION Vous Allez Supprimer " & NomOptB, vbOKCancel + vbCritical, "ATTENTION"
puisque tu as déjà le nom du contrôle dans la variable.
Si c'est le libellé que tu cherches à faire apparaître :
MsgBox "ATTENTION Vous Allez Supprimer " & CTL.Caption, vbOKCancel + vbCritical, "ATTENTION"
A+
LN