Private Sub Worksheet_SelectionChange(ByVal R As Range)
Dim C As Range
If Not Intersect(R, Range("g7:v20000")) Is Nothing Then
Application.EnableEvents = False
Application.ScreenUpdating = False
For Each C In Range("y7:y20000")
If C = 1 Then
If R.Row <> C.Row Then
Application.EnableEvents = False
Oubli_date.Show
Range("d" & C.Row & "").Select
Application.EnableEvents = True
Exit Sub
End If
End If
Next C
R.Select
End If