Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.ScreenUpdating = False
Dim fin As Long
fin = Feuil1.Range("D65000").End(xlUp).Row + 1
If Not Intersect(Target, Range("D2:D" & fin)) Is Nothing Then
Pièces.Show
End If
End Sub