Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
iR = Target.Row
Set isect = Application.Intersect(Target, Range("plage"))
If Not isect Is Nothing Then
Cells(iR, 1) = "Oui"
Cells(iR, 2) = Date
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Cette macro restreint la sélection à la seule cellule active si c'est
'une sélection multiple et qu'elle intersecte la plage contrôlée.
If Target.Count > 1 Then
Set isect = Application.Intersect(Target, Range("plage"))
If Not isect Is Nothing Then
ActiveCell.Select
End If
End If
End Sub