Bonjour à toutes et tous,
j'ai déjà rencontré cette formule sur le forum,
mais je n'arrivais pas à l'adapter
La ligne ci-dessous fonctionne très bien
.Range("J" & Ligne).Value = CDbl(Me.TBMontant)
cette ligne de code est placée dans le code "Valider nouveau"
elle est copiée dans la BD au format Numérique, ce qui me permet un total de la colonne J
Bonne soirée à tous
amicalement
Pierrot