Bonsoir Gilles, bonsoir à tous
Si tes chiffres restent bien sur les premières lignes de la colonne A, alors ceci devrait suffire:
Private Sub CommandButton1_Click()
Range("B1").Cells(Me.ListBox1.ListIndex + 1, 1) = Me.ListBox2
End Sub
A mettre bien sûr dans le code de ton UserForm.
En espèrant avoir bien compris ton problème…
Bonne soirée.