Inscrire une Date selon la sélection dans ListeBox

Salut tout le monde
J’ai un problème que j’espère trouver la solution dans ce forum.
Alors il s’agit de :
Après sélection(s) dans la ListeBox « Sélection_dépenses », en fait une copier de la Date inscrite sur « TextBox_Date » de mon UserForm dans la Feuil1 colonne « F » ou « G » ou « H » ou « J » ou « K » selon les cas
Merci d’avance à vous

voila j'ai un UserForm qui contiens une List Box nommé (Sélection_dépenses) un Text Box Nommé (TextBox_Date) et deux Botton (Liste) et (Valider).
ma List Box est alimenté par la Feuil1 colonne A (ID), B (Nom & Prénom), C (Structure) :
le code marche très bien:

Code:

---

1 2 3 4 5 6

Private Sub Liste_dépenses_Click() Sélection_dépenses.ColumnHeads = True With Sheets("Feuil1").Range("A2") Sélection_dépenses.RowSource = Range(.Cells, .End(xlDown)(1, 3)).Address(External:=True) End With End Sub

---

après avoir alimenté ma List Box je vais faire une multiple sélection des mes agent selon les cas puis j'inscris une date sur mon Text Box.
jusque la çava.

il me manque le code du Botton (Valider) qui vas selon la sélection dans List Box copier la date de (TextBox_Date) dans la Feuil1 sur les liges correspondante (ID) et colonne « F » ou « G » ou « H » ou « J » ou « K » selon que la cellule est vide.