Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'ActiveSheet.Unprotect Password:="Krameri"
If Not Intersect(Target, Range("L3:L2000")) Is Nothing And Target.Count = 1 Then
Pratique2.Show
Else
If Not Intersect(Target, Range("F3:F2000")) Is Nothing Or _
Not Intersect(Target, Range("K3:K2000")) Is Nothing Or _
Not Intersect(Target, Range("L3:L2000")) Is Nothing Or _
Not Intersect(Target, Range("N3:N2000")) Is Nothing Or _
Not Intersect(Target, Range("P3:P2000")) Is Nothing Then
MsgBox "Lance AjouteC33, AjouteD33 et DLFA", , "Action" 'Call AjouteC33
'Call AjouteD33
'Call DLFA
'ActiveSheet.Protect Password:="Krameri", DrawingObjects:=True, Contents:=True, Scenarios:=True
' ActiveSheet.EnableSelection = xlUnlockedCells
Application.EnableEvents = 0: Target.Select: Application.EnableEvents = 1 '...revient
End If
End If
End Sub