Fonction( moyenne) avec excel

Sub Macro3()
'
' Macro3 Macro
'

Sheets("Feuil1").Select

Dim somme As Variant
Dim k As Integer
k = 1

For i = 1 To 54000 Step 20

somme = 0

 For j = 0 To 19 Step 1
 If (Cells(i + j, 1).Value = "") Then Exit For
 somme = somme + Cells(i + j, 1).Value
 Next j

If somme <> 0 Then

Sheets("Feuil2").Select

Cells(k, 1).Value = somme / j
k = k + 1

Sheets("Feuil1").Select
End If

Next i

'
End Sub