Problème de transfert d'information d'un userform vers une BD

With Sheets("BD_depense") 'prend en compte l'onglet "BD_bdc"
    dl = .Cells(Application.Rows.Count, 1).End(xlUp).Row 'définit la dernière ligne éditée dl de la colonne 1 (=A)
    plv = dl + 1 'définit la première ligne vide de la colonne A (déclarée Publique dans le Module1)
.range("A" & plv)=textbox_date
'etc ....
End With

For Each ctrl In Me.Controls 'boucle sur tous les contrôles de l'UserForm

    On Error Resume Next 'gestion des erreurs (en cas d'erreur passe à la ligne suivante)
    'si la propriété "Tag" du contrôle n'est pas vide, récupère la valeur du contrôle dans la cellule (ligne : li,
    'colonne : Tag du contrôle (converti en Byte)) de longlet "BD_ELEVE" (peut générer un erreur selon le type de contrôle)
    If ctrl.Tag <> "" Then Sheets("BD_depense").Cells(li, CByte(ctrl.Tag)).Value = ctrl.Value
'Tu peux rajouter
if typeof ctrl is msforms.textbox then ctrl.value=""    

If Err <> 0 Then Err = 0 'si une erreur a été générée, annule l'erreur
    On Error GoTo 0 'annule la gestion des erreurs
Next ctrl 'prochain contrôle de la boucle