La lettre "C" n'est pas référencée. Le bigramme"AM" est ambigu (déjà dit) à cause de la couleur de fond. Il faudrait les différencier à l'aide de lettres uniquement.
La somme en AE10 est fausse, etc.
Autrement, la fonction personnalisée ci-dessous est envisageable :
Function SommeLIGNE(ligne As Integer) As Variant
Dim Table(17, 2) As Variant
Dim i As Integer, j As Integer
For i = 1 To 17
Table(i, 1) = Cells(88 + i, 5)
Table(i, 2) = Cells(88 + i, 6)
Next i
SommeLIGNE = 0
For i = 3 To 30
For j = 1 To 17
If Cells(ligne, i) = Table(j, 1) Then
SommeLIGNE = SommeLIGNE + Table(j, 2)
Exit For
End If
Next j
Next i
SommeLIGNE = Int(SommeLIGNE * 100) / 100
End Function
Exemple : en entrant en AE10 la formule = SommeLIGNE(Ligne()) on obtient 114,34.