Liste de personnel Menu de Noel

Bonjour,

Je souhaite faire un fichier facile à utiliser...
J'ai une liste 50 personnes,
Avec des boutons Oui ou Non pour la participation,
Alors un Liste dans un UserForm apparait avec les noms du personnel.
Lorsque le nom est selectionné alors une autre UserForm arrive avec le choix du menu, le nombre de personne et les infos sur les enfants.
Et selon la reponse les croix viennent remplir le tableau, le menu choisi, l'age et le nom des enfants

J en suis à la liste mais lorsque que je souhaite cliquer sur le nom, rien ne se passe !!
Je suis un peu perdu...

Sub NOM_Click()
With Sheets("Sheet1")
.Range("D4").Value = Application.VLookup(.Range("D4").Value, Sheets("Liste marseille").Range("A6:A71"), 2, False)


End With
End Sub