C'est bon j'ai réussi, merci encore !
La macro en question pour les intéressés :
Option Explicit
Dim derln1&, derln2&
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
derln1 = Range("D9").End(xlDown).Row
If Not Intersect(Target, Range("D9:X" & derln1)) Is Nothing Then
Application.ScreenUpdating = False
derln2 = Application.Max(30, Range("D37").End(xlUp)(2).Row)
Range("D" & Target.Row & ":X" & Target.Row).Copy Range("D" & derln2) '.Insert shift:=xlDown
Range("D" & Target.Row & ":X" & Target.Row).Delete shift:=xlUp
Range("D28:X28").Insert shift:=xlDown
End If
Cancel = True
End Sub