'Option Explicit
Private Sub Worksheet_SelectionChange(ByVal r As Range)
If Not Intersect(r, Range("j1:z100")) Is Nothing Then Exit Sub
If Not Intersect(r, Range("i2:i100")) Is Nothing Then
If Cells(ActiveCell.Row, 9) <> "" Then
Cells(ActiveCell.Row, 12) = "clic"
Cells(ActiveCell.Row, 11).FormulaR1C1 = "=ISNUMBER(FIND(TEXT(TODAY(),""jj.mm.aa""),RC[-1]))"
'Cells(ActiveCell.Row, 11).FormulaR1C1 = "=COUNTIF(RC[-1],""*""&TEXT(TODAY(),""jj.mm.aa"")&""*"")>0"
Cells(ActiveCell.Row, 11).Value = Cells(ActiveCell.Row, 11).Value
If Cells(ActiveCell.Row, 11) = "Vrai" Then
Cells(ActiveCell.Row, 11) = ""
Cells(ActiveCell.Row, 12) = ""
Cells(ActiveCell.Row, 1).Select
End If
Application.EnableEvents = False
Columns("K:K").Select
Selection.Find(What:="FAUX", After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
If ActiveCell = "FAUX" Then
Columns("L:L").Select
Selection.Find(What:="clic", After:=ActiveCell, LookIn:=xlFormulas2, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Application.EnableEvents = True
Cells(ActiveCell.Row, 9).Select
Cells(ActiveCell.Row, 12) = ""
End If
End If
End If
End Sub