Function Cumul(Lig As Integer)
Dim L As Integer, C As Integer, i As Integer, V As Variant
Application.Volatile
C = Application.Match("Cumul", Range("1:1"), 0)
L = Lig
Cumul = 0
For i = 1 To C - 1
V = LCase(Trim(Cells(1, i))) ' Tout minuscule sans espace
If V Like "*_fact" And V <> "montant_fact" And V <> "total_fact" Then
Cumul = Cumul + Cells(L, i)
End If
Next i
End Function