Sub Macro1()
Dim dl As Long 'déclare la variable dl (Dernière Ligne)
With Sheets("Feuil1") 'prend en compte l'onglet "Feuil1"
dl = .Range("A65536").End(xlUp).Row 'définit la dernière ligne
'place la formule en E2
.Range("E2").Formula = "=AVERAGE(M" & dl & ",AC" & dl & ",AS" & dl & ",BI" & dl & ",BY" & dl & ")"
End With 'fin de la prise en compte de l'onglet "Feuil1"
End Sub