Private Sub Worksheet_SelectionChange(ByVal R As Range)
ActiveSheet.Unprotect Password:="Krameri"
If Not Intersect(R, Range("L3:L2000")) Is Nothing And R.Count = 1 Then Pratique2.Show
If Intersect(R, Range("F3:F2000,K3:K2000,L3:L2000,N3:N2000,P3:P2000")) Is Nothing Then GoTo 1
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
1 Application.EnableEvents = 0: R.Select: Application.EnableEvents = 1 '...revient
End Sub