Incrementation ligne

Bonjour, je suis débutant
Je cherche à incrémenter plusieurs lignes de différentes feuilles afin de créer une moyennes
Je m'explique.

Feuille 1 : Cellule G9 --> Prix 01
Feuille 2 : Cellule G9 --> Prix 02
Feuille 3 : Cellule G9 --> Moyenne de prix

Comment incrémenter tout ca pour obtenir automatiquement

Feuille 1 : Cellule G10 --> Prix 01
Feuille 2 : Cellule G10 --> Prix 02
Feuille 3 : Cellule G10 --> Moyenne de prix

Feuille 1 : Cellule G11 --> Prix 01
Feuille 2 : Cellule G11 --> Prix 02
Feuille 3 : Cellule G11 --> Moyenne de prix

Ma feuille de VBA

Sub total()
Dim prx1 As Integer
Dim prx2 As Integer

Dim som1 As Integer

Dim n As Integer

End Sub


Function Somme() As Integer

prx1 = Worksheets("Feuil1").Range("G9")
prx2 = Worksheets("Feuil2").Range("G9")


If Worksheets("Feuil1").Range("G9") <> "" And Worksheets("Feuil2").Range("G9") <> "" Then
n = 2
ElseIf Worksheets("Feuil1").Range("G9") = "" And Worksheets("Feuil2").Range("G9") <> "" Then
n = 1

End If
som1 = prx1 + prx2
Range("G9") = som1 / n
End Function

Merci pour votre aide !!!