Recup info à tronquer ds cellule

Bonjour,

Je souhaite via une macro VB mettre en place le processus suivant (voir copie d'ecran jointe pou mieux comprendre).

J'ai une liste que j'appelerai A

Dans une cellule que j'appelerai B, j'ai plusieurs noms separés par chr(10) -le saut de ligne pour ceux qui ne connaissent pas-

Je souhaiterai au moment ou je clique sur le bouton 1 qu'une croix s'affiche dans la colonne B en face des noms correspondants (cadre rouge sur mon exemple)

Je ne suis pas sure d'etre tres claire

Merci par avance pour vos reponses

Nanette

Bonsoir,

essaie avec ce code :

Sub ee()
Dim Cel As Range, Derlig As Long
Derlig = [A65000].End(xlUp).Row
For Each Cel In Range("A1:A" & Derlig)
    If InStr(1, Range("E1"), Cel.Value, 1) > 0 Then Cel.Offset(0, 1) = "X"
Next Cel
End Sub