Bonjour le fil, bonjour le forum,
Un proposition VBA. La date en A1 :
Sub Macro1()
Dim V As String 'déclare la variable V (Valeur)
Dim P(2) As Variant 'définit le tableau P des parties séparées par un slash (/)
Dim T As Integer 'déclare la variabe T (Total)
Dim RT As Integer 'déclare la variable RT (Récupération du Total)
V = CStr(Range("A1").Value) 'définit la valeur V (convertis la date en texte)
For I = 0 To 2 'boucle 1: sur les trois parties (jour/mois/Année)
P(I) = Split(V, "/")(I) 'récupère la partie dans la variable P(I)
For J = 1 To Len(P(I)) 'boucle 2 : sur tous les caractères de la partie
T = T + CInt(Mid(P(I), J, 1)) 'calcule le total T des caractères
Next J 'prochain caractère de la boucle 2
Next I 'prochaine partie de la boucle 1
Do Until T < 10 'éxécute jusqu'a ce que RT n'ait qu'un seul caractère
RT = T: T = 0 'récupère la valeut de T dans la variable RT, Vide T
For J = 1 To Len(RT) 'boucle sur tous les caractères des RT
T = T + CInt(Mid(RT, J, 1)) 'calcule le total T des caractères
Next J 'prochain caractère de la boucle
Loop 'boucle
MsgBox T 'affiche la valeur du total T
End Sub