bonjour Bronson
la macro ci dessous recupere les valeurs numeriques dans le commentaire de la cellule A1
Sub SommeDansCommentaire()
Dim i As Byte
Dim Cible As String
Dim Nombre As Double, Total As Double
Cible = Range("A1").Comment.Text 'recuperation valeur commentaire
Cible = Application.Substitute(Cible, ",", ".") 'pour que fonction Val puisse reconnaitre decimales
For i = 1 To Len(Cible)
If IsNumeric(Mid(Cible, i, 1)) Then
Nombre = Val(Mid(Cible, i, Len(Cible) - i + 1))
MsgBox Nombre
Total = Total + Nombre
i = i + (Str(Nombre)) - 2
End If
Next
MsgBox "Le total du commentaire : " & Total
End Sub
bonne soiree
michel