Hello,
Dans le code de ton Cb0_Change(), tu dois indiquer la valeur du listbox vers la cellule :
If Cb0.ListIndex > -1 Then Sheets("Feuil1").Range("A70").Value = Cb0.Value
si listindex n'est pas vide :
Cb0.ListIndex > -1
alors je copie les données dans la cellule A70 de la feuille 1 :
Sheets("Feuil1").Range("A70").Value = Cb0.Value