'---RANG---
If Not Intersect(Target, Union(br.Columns(1), br.Columns(7))) Is Nothing Then
br.Columns(1) = "=IFERROR(RANK([@Colonne7],[Colonne7]),"""")"
br.Columns(1) = br.Columns(1).Value
End If
'---NOM&PRENOMS (pour les doublons)---
If Not Intersect(Target, br.Columns(2).Resize(, 3)) Is Nothing Then
br.Columns(4) = "=[@Colonne2]&"" ""&[@Colonne3]"
br.Columns(4) = br.Columns(4).Value
End If
'---MENTION---
If Not Intersect(Target, br.Columns(7).Resize(, 2)) Is Nothing Then
br.Columns(8) = "=IF(ISNUMBER([@Colonne7]),IF([@Colonne7]<5,""Très faible"",IF([@Colonne7]<8,""Faible"",IF([@Colonne7]<10,""Insuffisant"",IF([@Colonne7]<12,""Passable"",IF([@Colonne7]<14,""Assez-bien"",IF([@Colonne7]<16,""Bien"",IF([@Colonne7]<18,""Très bien"",""Excellent""))))))),"""")"
br.Columns(8) = br.Columns(8).Value
End If