Moyenne par ligne - VBA

bonjour

Je suis débutant en vba et je cherche une fonction pour calculer les moyennes par lignes

J'ai essayé cela mais sans succès

Sub Moyennes()
Dim m As Integer

For Each r In Rows("2:25") ' pour chaque ligne

Debug.Print r.Row
m = Application.WorksheetFunction.Average(Cells(r.Row, 2), Cells(r.Row, 26))
Cells(r.Row, 29) = m

End Sub

Bonjour,
Une proposition à adapter.
Cdlt.

Merci pour votre retour. Cela fonctionne et je commence à mieux comprendre le vba

le Me équivaut à this dans d'autres langage vraissemblablement