Associé une valeur lors de la validation du ligne Vba

Private Sub CommandButton1_Click()
Dim L As Long
Dim C As Long
If MsgBox("Etes-vous certain de vouloir insérer cette novelle lignet ?", vbYesNo, "Demande de confirmation") = vbYes Then
With Feuil2
L = .Range("A" & Rows.Count).End(xlUp).Row + 1
'Permet de se positionner sur dernière ligne du tableau non vide
.Range("A" & L).Value = NomBgDepot 'Insère la donnée de la liste déroulante dans la colonne A
For C = 2 To 13
.Cells(L, C).Value = Controls("TextBox" & C).Value
Next
.Cells(L, 2).Value = DateValue(TextBox2.Value)
.Cells(L, 3).Value = DateValue(TextBox3.Value)
End With
End If

MsgBox ("Client inséré dans fichier sélectionné") 'Vous informe que le client a été ajouté dans le tableau Excel
'Unload Me 'Ferme le formulaire
' UsfClients.Show 'Ouvre le formulaire
End Sub</souligne>


Je voudrais rajouter à ce code, lors de la validation une valeur qui ce rajouterai à la suite de la ligne dans une autre cellule.


le fichier ci-joint :

http://www.cjoint.com/c/FDDnAOLPyfJ


Merci d'avance