[COLOR=blue]Sub[/COLOR] Test()
[COLOR=blue]For Each[/COLOR] C [COLOR=blue]In[/COLOR] Range("E2:H2")
Col = Left$(C.Address(0, 0), (C.Column < 27) + 2)
C.FormulaLocal = "=SOMME.SI.ENS(feuille1!" & Col & " : " & Col & ";feuille1!C:C;A2;feuille1!D[SIZE=3][COLOR=red][B]2[/B][/COLOR][/SIZE];B2)"
[COLOR=blue]Next[/COLOR] C
[COLOR=blue]End Sub[/COLOR]