Calcule chaque cells en utilisant une macro

Bonjour Everyone,

J'aimerais que vous m'aider s'il vous plait, j'ai un tableau des défauts et je voulais calculer la productivité pour faire un graphe, et pour cela j'ai besoin de faire un calcule automatique après chaque filtrage, donc j'ai besoin d'une macro qui calcule chaque ligne que j'ai filtré

de la colonne productivité est : =(E2/E10)*100, E2 la ligne de productivité d'un X defaut et E10 la totalité de la productivité que j'ai choisi, après je dois faire pour toute la colonne.

c'est urgent et merci d'avance.

Bonjour,

Sub Comptagetest()
    Dim cumul, n%, i%
    With ActiveSheet
        n = .Range("E" & .Rows.Count).End(xlUp).Row
        cumul = WorksheetFunction.Sum(.Range("E2:E" & n))
        Application.ScreenUpdating = False
        For i = 2 To n
            .Range("H" & i) = .Range("E" & i) / cumul
        Next i
        .Range("H2:H" & n).NumberFormat = "0.0%"
    End With
End Sub

Cordialement.