je souhaiterais pouvoir renvoyer des valeurs calculée à partir d'une base de donnée située sur une feuille 1 directement sur une feuille 2.
Sub MMC()
Dim i, j, l, col As Integer, k As Double
For col = 2 To 36
j = 13
For i = j To 37
k = Application.Sum(Sheets("feuil2").Range(Cells(i + 2, col), Sheets("feuil2").Cells(i + 13, col))) / 12
Sheets("feuil1").Cells(i -11, col).Value = k
Next i
Next col
End Sub