Bonjour,
Pas sûr que votre "formulaire" soit adapté car il n'y a pas de checkbox ou cellule séparée pour les symboles. Le tout se trouve dans la même cellule avec plusieurs typologie de police mais bon un test tout de même par double clic sur la cellule. Code a intégrer dans le code VBA de la Feuil1 Question :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim MOTIF$
If Not Application.Intersect(Target, [B54]) Is Nothing Then
MOTIF = InputBox("Merci de renseigner le motif")
Target = Target & " : " & MOTIF
End If
End Sub
Cdlt,