[BOISGONTIER]

Bonsoir,


Les choix s'ajoutent ou se retranchent si choix déjà fait.
La colonne B est cachée.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$C$2" And Target.Count = 1 Then
    Application.EnableEvents = False
    p = InStr(Target.Offset(0, -1), Target.Value)
    If p > 0 Then
      Target.Offset(0, -1) = Left(Target.Offset(0, -1), p - 1) & _
      Mid(Target.Offset(0, -1), p + Len(Target.Value) + 1)
    Else
      Target.Offset(0, -1) = Target.Offset(0, -1) & Target.Value & " "
    End If
    Target.Value = Target.Offset(0, -1)
    Application.EnableEvents = True
  End If
End Sub

JB
Formation Excel VBA JB