Voici la transformation apportée à la macro recherche_2 :
Sub recherche_2()
Dim I As Integer, L As Integer
Dim point As Integer
Application.ScreenUpdating = False
L = Range('T5:T12').Find('', LookIn:=xlValues).Row - 1
Range('U90:AE90').Select
Selection.AutoFill Destination:=Range('U64:AE90'), Type:=xlFillDefault
Range('U64:AE90').Select
Range('U64').Select
For I = 5 To L ' il faudra adapter en fonction de la position du tableau
point = Range('W' & I).Value
equipe1 = Range('T' & I).Value
For K = I + 1 To 12
If Range('W' & K).Value = point Then
equipe2 = Range('T' & K).Value
Call rappel_scores_2
End If
Next K
Next I
End Sub
je recherche la première cellule vide de la colonne 'T' entre T5 et T12, et je boucle jusqu'au numéro de la ligne qui la précède, donc la dernière équipe.
Je suppose qu'il n'y aura jamais plus de 8 équipes.