Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Target.Column = 9 Then Exit Sub
Range("a3:K7").AutoFilter Field:=9, Criteria1:=ActiveCell.Value, Operator:=xlAnd
Set plage = Range("a4:k" & Range("K65536").End(xlUp).Row)
plage.SpecialCells(xlCellTypeConstants).Copy Feuil2.Range("a65536").End(xlUp)(2)
Cancel = True
End Sub