Sub Macro1()
If Feuil1.Cells(1, 1).Value <> "Désignation" Then
Feuil1.Rows(1).Insert
Feuil1.Cells(1, 1).Value = "Désignation"
Feuil1.Cells(1, 2).Value = "Valeur"
End If
Feuil1.Range("A1:B" & Feuil1.[A65536].End(xlUp).Row).Subtotal GroupBy:=1, Function:=xlAverage, TotalList:=Array(2), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Feuil1.Cells.ClearOutline
End Sub