Private Sub Ex_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim F As Worksheet
Me.Hide
If Target Is Nothing Then Exit Sub
On Error Resume Next
If Target.Rows.Count <> 1 Then Exit Sub
Set F = Sh
If Intersect(F.[CorpsDevFac], Target) Is Nothing Then Exit Sub
If Err Then Exit Sub
Set PlgDest = Intersect(F.[CorpsDevFac], Target.EntireRow)
' éventuellement ici: réafficher dans les contrôles les données trouvées dans cette ligne
Me.Show
End Sub