Bonjour
Un exemple
Dans une Ligne Col 1 Choix 1, colonne 2 Choix 2, etc...
Si dans ta Lixtbox tu as bien indiqué Choix 1,Choix 2...
Sur ton bouton de validation
Set Line = Rows("1:1").Find(What:=ListBox1.Value, lookat:=xlWhole)
If Not Line Is Nothing Then
col = Line.Column
Cells(2, col) = "x"
End If
ListBox1 nom de ta listbox
Tu cherches la valeur dans la ligne, récupère la colonne et dans le cas présent j'ai mis la croix en ligne 2
Adapte à ton cas
Bonne soirée