A tout hasard, si tu fais comme ça ça marche ?
Sub Reporting()
'
' Reporting Macro
' Macro enregistrée le 28/07/2010 par Administrateur
'
'
Range("E14:G14").Select
Call Cellulevide
ActiveCell.FormulaR1C1 = "=AVERAGE(R[-7]C:R[-1]C)"
Range("E14:G14").Select
Range(Selection, Selection.End(xlDown)).Select
Call TauxAppelsPris
Range("H14:J14").Select
Call Cellulevide
ActiveCell.FormulaR1C1 = "=AVERAGE(R[-7]C:R[-1]C)"
Range("H14:J14").Select
Range(Selection, Selection.End(xlDown)).Select
Call TauxDisponibilitéEMD
Range("K14:M14").Select
Call Cellulevide
ActiveCell.FormulaR1C1 = "=AVERAGE(R[-7]C:R[-1]C)"
Range("K14:M14").Select
Range(Selection, Selection.End(xlDown)).Select
Call TauxFichesNeocase
Range("K22:M22").Select
End Sub