Private Sub Worksheet_SelectionChange(ByVal Target As Range)
user = "Moi"
If Target.Count > 1 Then Exit Sub
If Application.Intersect(Target, Range("N6:N10")) Is Nothing Then Exit Sub
' contrôle du contenu de la cellule "O"
If Range("O" & ActiveCell.Row) = user Then Exit Sub
If Not MsgBox("Voulez-vous vraiment modifier ?", vbYesNo + vbExclamation + vbDefaultButton2, "Attention") = vbYes Then Exit Sub
' ouverture automatique liste déroulante
If Application.Intersect(Target, Range("N6:N10")) Is Nothing Then Exit Sub
Target.Select
SendKeys "%{down}": Target.Select
End Sub