Sub groupe()
With Sheets("Match 1")
.Range("g1") = "Groupe"
moyenne = Application.Average(Range(Range("a2"), Range("a1").End(xlDown)))
MsgBox moyenne
For i = 2 To 31
If Cells(i, 6) >= moyenne Then
Cells(i, 7) = "Groupe 1"
Else
Cells(i, 7) = "Groupe 2"
End If
Next
.Rows(1).Copy Sheets("Groupe 1").Range("a1")
.Rows(1).Copy Sheets("Groupe 2").Range("a1")
Sheets("Groupe 1").Range("l1") = "Groupe"
Sheets("Groupe 1").Range("l2") = "Groupe 1"
Sheets("Groupe 2").Range("l1") = "Groupe"
Sheets("Groupe 2").Range("l2") = "Groupe 2"
.Range("a1").CurrentRegion.AdvancedFilter xlFilterCopy, Sheets("Groupe 1").Range("l1:l2"), Sheets("Groupe 1").Range("a1:g1"), False
.Range("a1").CurrentRegion.AdvancedFilter xlFilterCopy, Sheets("Groupe 2").Range("l1:l2"), Sheets("Groupe 2").Range("a1:g1"), False
End With
End Sub