Ajouter un docuement PDF a une donnee

Bonjour le forum,
Je travail sur une base de donees ou j'afficher une liste de formation avec les dates et les documents associés.
Je veux ajouter un document PDF/word/ photo….. a chaque formation.
On sélectionne la formation a partir d'une liste qui s'affiche dans un userform, puis on clique sur un bouton pour ajouter le document.
J'a écrit ce code mais le pb c'est que il me crée une nouvelle donnée avec le même nom de la formation que j'a sélectionné et il rajoute le document mais il garde pas la date.

Private Sub Sub_Ajout_Mdp_Forma_Click()
If Me.ListBox_Form_Intern.ListIndex = -1 Then
MsgBox ("Pour ajouter le mode de preuve veuillez choisir une formation")
Else
Set ws = ActiveWorkbook.Worksheets(Personne)
Nom_Forma = Me.ListBox_Form_Intern.List(Me.ListBox_Form_Intern.ListIndex, 0)
Fin_Col_Forma = ws.Cells(10, 256).End(xlToLeft).Column
ws.Cells(10, Fin_Col_Forma).Value = Nom_Forma
Cells(10, Fin_Col_Forma + 1).Select
ws.Activate
repertoire = Application.GetOpenFilename()
ws.Cells(12, Fin_Col_Forma + 1) = repertoire
End If
End Sub

Que dois je modifier pour qu'il me garde la date.
Le lien wetransfer pr le fichier :
Instruction : Cliquer sur le service, gestion compte, personnel, selectionner la 1ere personne puis le profile s'affiche

Merci