Bjour à tous!

Bonjour,
J'ai une colonne à k-lignes.
J'aimerais bcp inserer une cellule en k+1 contenant la moynne des données au dessus.

J'ai bien trouvé un code qui semble fonctionner pour une moyenne de lign, mais je n'arrive pas a faire l'adaptation.

Voici le code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
Sub CalculMoyenne()
 
    Dim K As Long, Formule As String
 
    Range("A1").Select
    K = (Range("A1:IV1").End(xlToRight).Column + 1)
    Cells(1, K).Value = "Moyenne"
    Formule = "=AVERAGE(" & Cells(45, 1).Address & ":" & Cells(45, K - 1).Address & ")"
    Cells(45, K).Value = Formule
 
End Sub

Au plaisir de vous lire!!