Salut Flopige,
avec une fonction personnalisée dans les cellules-résultats
=fctHrs(1)
Fais attention à la régularité des encodages : il manque des parenthèses, en [B3], voire même des nombres entre parenthèses, en [D9:D10].
La fonction est dans le module 'Module 1'
Public Function fctHrs(ByVal iIdx%) As Integer
'
Dim iTot%, sFlag$
'
Application.Volatile
'
For x = 2 To 26
sFlag = Cells(2 + iIdx, x)
If sFlag <> "" Then
If InStr(sFlag, "(") > 0 Then iTot = iTot + CInt(Split(Split(sFlag, ")")(0), "(")(1))
End If
Next
fctHrs = iTot
'
End Function
A+