Sub t()
With Sheets(1)
.Range("k1") = .Range("d3")
.Range("l1") = "Moyenne"
.Range("a3").CurrentRegion.AdvancedFilter xlFilterCopy, , .Range("k1"), True 'pour récupérer toutes les équipes!
For i = 2 To Range("k65000").End(xlUp).Row
Cells(i, 12) = Application.SumIf(Range("d:d"), Cells(i, 11), Range("e:e")) / 3 'pour avoir la moyenne
Next
Range("k1").CurrentRegion.Sort key1:=Range("l1"), order1:=2, header:=xlYes 'pour le tri
End With
End Sub