Sub Moyenne()
Dim WP As Worksheet, WB As Worksheet, i As Long, Tablo, TabFin, Plage As Range
Set WP = Worksheets("ParaMrp")
Set WB = Worksheets("Base")
Tablo = WP.Range("A8:A" & WP.Range("A" & Rows.Count).End(xlUp).Row)
ReDim TabFin(1 To UBound(Tablo))
Set Plage = WB.Range("A4:E" & WB.Range("A" & Rows.Count).End(xlUp).Row)
Plage.AutoFilter Field:=3, Criteria1:="Consommation"
For i = LBound(Tablo) To UBound(Tablo)
Plage.AutoFilter Field:=1, Criteria1:=Tablo(i, 1)
x = x + 1
If Application.Subtotal(3, Plage.Columns(5)) = 0 Then
TabFin(x) = "aucune consommation"
Else
TabFin(x) = Application.Subtotal(1, Plage.Columns(5))
End If
Next
Plage.AutoFilter Field:=1
Plage.AutoFilter Field:=3
WP.Range("F8").Resize(UBound(TabFin), 1) = Application.Transpose(TabFin)
End Sub