Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 2 To Range("A65536").End(xlUp).Row
If Trim(LCase(Range("A" & i).Value)) = "modifications temps méthodes" Then
If Range("C" & i) = "" Then
Range("A" & i).Offset(0, 2).Interior.ColorIndex = 6
Else
Range("A" & i).Offset(0, 2).Interior.ColorIndex = Null
End If
End If
Next i
End Sub