salut,
 
mon problème vient du fait que je travaille au sein dune boucle et par consequent mes ranges sont variables. Je n'arrive pas à acrire ma Formulalocal somme si sans erreur, ca fait bien 3h que je suis dessus. quelqu'un peut m'aider s'il vous plait?
merci par avance.
 
Le code sera plus parlant:  
Sub ouf()
 
Dim i As Integer
Dim n As Integer
Dim feuille As Worksheet
Dim rgrange As Range
Dim c As Range
Dim d As Range
 
 
For i = 1 To ActiveWorkbook.Worksheets.Count - 3
    Set feuille = ActiveWorkbook.Worksheets(i)
   
        With feuille
         
            Set rgrange = .Range("I1" ).CurrentRegion
             
            '.Range("A1:AA1" ).AutoFilter
            '.Range("G:H" ).ClearContents
            '.Range("G2:G4000" ).FormulaLocal = "=RECHERCHEV(F2;'[sector et note.xls]sector_industry'!$A$14:$D$1375;4;0)"
            '.Range("G1" ).Value = "sector"
             
            'moyennes notes sectorielles
            n = rgrange.Rows.Count
            Set c = Range(Cells(1, 7), Cells(n, 22))
            Set d = Range(Cells(2, 9), Cells(n, 9))
            [b][b][#ff0e00][b].Cells(rgrange.Cells(1, 9).Row + rgrange.Rows.Count + 8, 9).FormulaLocal="=SOMME.SI(" & c.Address & "; "Services aux consommateurs" ;" & d.Address & " )/NB.SI(" & e.addresslocal &" ).address;""Services aux consommateurs
 
     End With
Next i
     
End Sub

"[b][b][#ff0e00][b]." c'est bien entendu une erreur qui n'aurait pas du apparaitre dans mon message, desol!!!

Bonjour
 
Fais un debug.print et regarde a quoi ressemble ton somme.si
Tu verras s'il y a une erreur de syntaxe