Classement d'équipe de cross country

Bonjour,

Je cherche à automatiser des actions que je fais aujourd'hui manuellement.
Je pense que c'est possible en VBA. Je bute sur les conditions qui me font passer d'un classement individuel de cross à un classement par équipes de 5 coureurs du même collège.

A partir de résultats individuels d'un cross scolaire inter-établissements je souhaite réaliser un classement par équipes.
Chaque équipe doit comporter exactement 5 coureurs pour être classée.
Le nombre de points obtenus par une équipe est la somme des places individuelles de chaque membre de l'équipe.
L'équipe qui obtient le moins de points est classée première.
N'ayant pas encore les connaissances nécessaires pour réaliser cela de manière propre et automatisée avec des macros et VBA je le faisais par étapes manuellement.

Mon tableau de départ a 9 colonnes:

Col A; Col B ;Col C; Col D; Col E ; Col F ; Col G ; Col H ; Col I
Lig 1 Rang;NOMS Prénoms; sexe; DDN; Collège; Catégorie;N°Dossard; Temps;Vitesse

1- Onglet 1: je trie par Collège
2- Onglet 1: Je copie les lignes contenant 5 coureurs du même collège pour les coller dans un tableau où ne resteront que des équipes de 5 coureurs.( si un collège a 6,7,8 ou 9 coureurs seuls les 5 meilleurs seront pris en compte dans le classement par équipe, il faudrait un 10ème coureur pour classer 2 équipes).
3- Onglet 1: Je copie le tableau obtenu (ne contenant que des regroupements de 5 coureurs par établissement) dans un autre onglet (2) et dans un tableau (juste pour plus de lisibilité,avec cette méthode fastidieuse il est plus facile de passer d'un onglet à un autre que de naviguer de gauche à droite dans un seul onglet et de bien savoir où je suis).

4-Onglet 2: à gauche j'ai mon tableau copier en 3- à droite à droite j'ai un tableau a 4 colonnes me permettant d'avoir les 5 coureurs d'un équipe sur une ligne (concaténer), le nom de l'établissement en face et le nombre de points obtenus.(somme)

Col A ; Col B ;Col C ; Col D
Equipe; Etablissement; Points; Place

Colonne Equipe :=CONCATENER($B7;", ";$B8;", ";$B9;", ";$B10;", ";$B11)
Colonne Etablissement: =SI(ESTVIDE(E2);"";E2)
Colonne Points: =SI(ESTVIDE(A2);" ";SOMME(A2:A6))

Une fois ce tableau réalisé je le copie pour le coller dans un tableau identique dans un troisième onglet (collage des valeurs-pas de formules)

5- Onglet 3: Je trie le tableau par points pour avoir l'équipe qui a le moins de points en face du 1 du classement, la suivante en face du 2 etc... La colonne Place est préexistante.
Enfin j'ai préparé le dernier onglet Onglet 4 celui ou je vais avoir les résultats formatés et prêts à être imprimés Onglet 4 = "Classement-Equipes-Impression"

Col A ; Col B ;Col C ; Col D
Equipe; Etablissement; Points; Place (Pre-rempli)
Colonne Equipe: =SI(ESTVIDE('3'!A3);"";'3'!A3)
Colonne Etablissement: =SI(ESTVIDE('3'!B3);"";'3'!B3)
Colonne Points: = =SI(ESTVIDE('3'!C3);"";'3'!C3)
Colonne Place: Préexistante

Ce dernier onglet me permet d'imprimer des résultats ou chaque feuille est faite d'un tableau avec les entêtes de colonnes et 15 équipes par feuille.

Je remercie d'avance ceux qui pourront me guider dans ma démarche