Private Sub Ex_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim F As Worksheet
Me.Hide
État = 2
If Target Is Nothing Then Exit Sub
On Error Resume Next
'If Target.Column <> 2 Then Exit Sub
If Target.Rows.Count <> 1 Then Exit Sub
Set F = Sh
If Intersect(F.[entete_feuille], Target) Is Nothing Then Exit Sub
If Err Then Exit Sub
Set PlgDest = Intersect(F.[entete_feuille], Target.EntireRow)
État = 3
End Sub