Macro avec boucle pour moyenne

Sub resultat()
    Dim shD As Worksheet, plage As Range
    Dim numTab As Long, nbTab As Long, i As Long
    Set shD = Worksheets("Feuil2")
    numTab = Application.CountA(shD.[1:1])
    nbTab = (Cells(Rows.Count, "A").End(xlUp).Row - 1) / 24 - numTab
    Application.ScreenUpdating = False
    For i = numTab To numTab + nbTab - 1
        shD.Cells(1, i + 2) = Cells(numTab * 24 + 2, "A")
        Set plage = Cells(i * 24 + 2, "J").Resize(24, 1)
        shD.Cells(2, i + 2) = Application.Average(plage)
        shD.Cells(3, i + 2) = Application.StDev(plage)
    Next i
    Application.ScreenUpdating = True
End Sub