Private Sub Worksheet_SelectionChange(ByVal target As Range)
[A:A].FormatConditions.Delete 'RAZ
If Intersect(ActiveCell, Range("B2:B" & Rows.Count)) Is Nothing Then Exit Sub
ActiveCell(1, 0).FormatConditions.Add xlExpression, Formula1:="=1" 'création de la MFC
ActiveCell(1, 0).FormatConditions(1).Interior.ColorIndex = 44 'orange
End Sub