Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set champ = Range("b5:d22,b25:d42,b45:d62")
If Not Intersect(champ, Target) Is Nothing Then
For i = 1 To champ.Areas.Count
If Not Intersect(champ.Areas(i), Target) Is Nothing Then
dte = Split(champ.Areas(i).Address, ":")(1)
End If
Next i
If Range(dte) <> "" And Date > Range(dte) Then
mp = InputBox("mot passe?")
If mp <> "toto" Then [a1].Select
End If
End If
End Sub