Sub essais()
Dim tab_l(8) ' pour mémoriser les lignes des groupes
l = 11: c = 2 ' cellule du premier nom
While Cells(l, c) <> ""
nom = Cells(l, c)
groupe = Split(Cells(l, 11), " ")(1)
tab_l(groupe) = tab_l(groupe) + 1
Cells(tab_l(groupe) + 5, groupe + 13) = nom
l = l + 1
Wend
End Sub