Merci pour votre aide mais j'ai trouvé une autre solution, en essayant avec une macro et en modofiant le code après:
Cells(LigneT, ColonneT).Select
Range(Selection, Selection.End(xlDown)).Select
Add = Selection.Address
Moy = "=AVERAGE("+ Mid(Add, 2, Len(Add) - 1) + ")"
Merci encore...