Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Cells.FormatConditions.Delete
If Target.Count = 1 Then
Target.EntireRow.FormatConditions.Add Type:=xlExpression, Formula1:="VRAI"
Target.EntireRow.FormatConditions(1).Interior.ColorIndex = 36
Target.FormatConditions(1).Font.Bold = True
End If
End Sub