Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next: [Mask].Delete
On Error GoTo 0
Select Case True
Case Target.Columns.Count = ActiveSheet.Columns.Count:
DoEvents ' une ligne entiere a été sélectionnée --> on ne trappe pas
Case Not Intersect([Personnel], Target) Is Nothing
Application.EnableEvents = False
Intersect([Personnel], Target).Select
Application.EnableEvents = True
AfficheMenu
End Select
End Sub