Function Penalités(equipes As Range)
'pour chaque ele de la zone sélectionnée -
For Each ele In equipes
'si les points associés à droite sont négatif
If ele.Offset(0, 1) < 0 Then
'on inscrit le nom de l'équipe et les points dans le résultat final
Penalités = Penalités & " " & ele & " :" & ele.Offset(0, 1) & " point(s), "
End If
Next ele
End Function