Bonjour, ci-joint une proposition en partant du principe qu'il n'y a que 25 élèves (en colonne A), qu'il ne faut faire que 5 équipes de 5, et que celles-ci n'ait pas d'autres contraintes dans leur construction.
Mais je ne comprends pas bien l'intérêt de passer par une macro.
Sub SousGroupe()
Dim lig
Dim equipe
For Each cell In Range("B2:B26")
lig = cell.Row
If lig > 1 And lig < 7 Then
equipe = 1
ElseIf lig > 6 And lig < 12 Then
equipe = 2
ElseIf lig > 11 And lig < 17 Then
equipe = 3
ElseIf lig > 16 And lig < 22 Then
equipe = 4
ElseIf lig > 21 And lig < 27 Then
equipe = 5
End If
cell.Value = equipe
Next cell
End Sub