Bonsoir Kr
Voici le code adapté pour traiter n'importe quel nombre de lignes et de colonnes.
Il suffit juste de régler les Ranges Table et Total aux valeurs que tu souhaites.
Le Range Table (ici B4:F9) est la zone contenant les points de chaque équipe
Le Range Total (ici B12:F12) est la zone contenant les scores les plus élevés
------------------------------------------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Table, Total As Range
Set Table = Range("B4:F9") '<<<<< Paramètre à régler
Set Total = Range("B12:F12") '<<<<< Paramètre à régler
If Target.CurrentRegion.Address <> Table.Address Then Exit Sub
For Each Col In Table.Columns
ActiveSheet.Cells(Total.Row, Col.Column).Value = 0
For Each Cel In Col.Cells
If ActiveSheet.Cells(Total.Row, Col.Column).Value <= Cel.Value Then
ActiveSheet.Cells(Total.Row, Col.Column).Value = Cel.Value
ActiveSheet.Cells(Total.Row, Col.Column).Interior.Color = Cel.Interior.Color
End If
Next Cel
Next Col
End Sub
------------------------------------------------------------------------------------------------
En pièce jointe, la feuille adaptée.
A + Omicron